Hallo zusammen,
ich versuche ein nicht datengebundenes Grid zu befüllen, ausgehend von einer
Query (ca. 12.000 Datensätze und 36 Spalten).
Die zweite Spalte wird nun auch schon wie gewünscht befüllt.
Im Moment habe ich aber noch 2 Probleme:
1. Wie kann man in der Schleife das
FieldbyName() so ersetzen, dass man über einen Integer (i) auf die verschiedenen Spalten zugreifen kann? So dass man dann in "einem Rutsch" alle Spalten füllen kann.
2. Mit unten aufgeführtem Code benötigt das ganze jetzt schon 3 Minuten! Für eine Spalte! Dabei sind es nur knapp 12.000 Datensätze.
Delphi-Quellcode:
for i := 0 to DatabaseModul.PvswQuery_1.FieldCount - 1 do begin
j := 0;
while not DatabaseModul.PvswQuery_1.EoF do begin
tv_1.DataController.AppendRecord; //ist beim Quantumgrid notwendig
tv_1.DataController.Values[J, I + 1] := DatabaseModul.PvswQuery_1.FieldByName('kundenname').AsString; // I + 1 deswegen, weil die 1. Spalte schon verwendet wird...
DatabaseModul.PvswQuery_1.Next;
inc(j);
end;
end;
DatabaseModul.PvswQuery_1.Close;
Für Eure Hilfe schon mal jetzt ein Danke im Voraus!