I Have a problem with the NextDBGrid and ClientDataSet.
The NextDBGrid Columns Have Create to DesignTime and the ClientDataSet to RunTime.
The Last 4 Columns are Checkbox Fieds.
I have the CheckboxFields Option ValueChecked und ValueUnChecked with True and False set without ''.
I have In my ClientDataSet are the last 4 fields as Boolean.
[Sourcecode]
Max := 7;
if not(Max < 0) then
begin
ClientDataSet2.Edit;
for i :=0 to Max do
begin
ClientDataSet2.Append;
ClientDataSet2.FieldByName('ID').AsInteger := i + 1;
ClientDataSet2.FieldByName('Produktionsnummer').AsInteger := 11457 + i;
ClientDataSet2.FieldByName('Auftragsnummer').AsString := '1609-00' + IntToStr(i) + 'Pos.1';
ClientDataSet2.FieldByName('Kunde').AsString := 'Imedco';
ClientDataSet2.FieldByName('Artikel').AsString := '124.50' + IntToStr(i);
ClientDataSet2.FieldByName('Anzahl').AsInteger := 12 + i;
ClientDataSet2.FieldByName('Info1').AsString := 'Peraluman 100';
ClientDataSet2.FieldByName('Info2').AsString := '3mm';
ClientDataSet2.FieldByName('Scheren').AsBoolean := True;
ClientDataSet2.FieldByName('Lasern').AsBoolean := False;
ClientDataSet2.FieldByName('Stanzen').AsBoolean := True;
ClientDataSet2.FieldByName('Kanten').AsBoolean := False;
ClientDataSet2.FieldByName('Fladdern').AsBoolean := True;
ClientDataSet2.FieldByName('Schweissen').AsBoolean := False;
end;
ClientDataSet2.Post;
ed_Auftragsnummer.Text :=ClientDataSet2.FieldByName('Auftragsnummer').AsString;
end;
[Sourcecode]
help me please ... Thank you