Search the Community

Example sources: https://github.com/Steema/TeeGrid-VCL-FMX-Samples/tree/master/demos/FireMonkey/Database/Master_Detail_FireDAC TeeGrid can be easily programmed to display unlimited sub-grid levels. Just add an "expander" render to enable "+" and "-" clicks, and set an event to obtain your desired sub-rows. uses Tee.Renders; var Expander : TExpanderRender; Expander:=TeeGrid1.Grid.Current.NewExpander;

TDataItem class is just four units, no dependencies, 100% Pascal code. It can be used standalone from TeeBI. uses BI.DataItem; var MyData := TDataItem.Create https://github.com/Steema/TeeBI

Type THelpModel = Class(TGridModel); procedure TViewPart.ChangeStringGridComboBoxCurrency(Sender: TObject); begin with TComboBox(Sender), StringGridPartDet do begin THelpModel(StringGridPartDet.Columns[2].Model).DoSetValue(Col,Row, TValue.From<String>(Items[ItemIndex]) ); StringGridPartDet.Columns[2].UpdateCell(Row); end; end; procedure TViewPart.StringGridPartDetCreateCustomEditor(Sender: TObject; const Column: TColumn; var Control: TStyledControl); begin if Column = StringGridPartDet.Columns[2] then begin Control := TComboBox.Create(Self); TComboBox(Control).Items.AddStrings(['GBP', 'EUR']); With StringGridPartDet, TComboBox(Control) do ItemIndex := Items.IndexOf(THelpModel(StringGridPartDet.Columns[2].Model).DoGetValue(Col,Row).AsString); TComboBox(Control).OnChange:= ChangeStringGridComboBoxCurrency; end; end; I have a StringGrid (StringGridPartDet) connected to a DataSet, I have used the attached code to update the currency column with a value from a ComboBox, the value appears correctly in the StringGrid, but does not update the DataSet. AmI missing a step?

I am trying to update an app. I type 871 into an edit box and close the app. When that happens I check the database. The cell associated with the DBEdit23 field is 871, but the IsMetallic field is not updated. What am I doing wrong? Please let me know what other info you need. Thanks! procedure TfDesignMaster.DBEditPMSExit(Sender: TObject); begin if DBEdit23.Field.AsString ='871' then begin dm.dsVendorProd.DataSet.Edit; dm.dsVendorProd.DataSet.FieldByName('IsMetallic').Value:='Y'; dm.dsVendorProd.DataSet.Post; end; end;