Hallo marabu,
wenn ich aus meinem Code "FormKunden.Show" entferne, dann läuft alles
wie auf Deiner Demo ab. Die Zahlenreihen beginnen mit der ersten Zeile.
Irgendwie beschleicht mich das Gefühl, dass für meine Zwecke nachstehender
Passus geändert werden müßte, damit statt der Zahlen meine Kundendaten ab
Zeile 1 eingetragen werden.
Zitat:
for iCol := FixedCols to Pred(ColCount) do
Cells[iCol, Row] := IntToStr(Random(90) + 10);
SetFocus;
Die Felder der QueryKunden korrelieren mit den Spalten des Grid:
Delphi-Quellcode:
procedure TFormKunden.BtnSpeichernClick(Sender: TObject);
var
inZeile: Integer;
begin
with FormKundenListe, GridKunden, QueryKunden do
begin
inZeile := RowCount;
RowCount := RowCount + 1;
Cells[0, inZeile] := FieldByName('Name1').AsString;
Cells[1, inZeile] := FieldByName('Name2').AsString;
...
Viele Grüße