hi,
tot nu toe gebruik ik eigenlijk alleen dbgrids, maar binnen mijn huidige
toepassing moet ik een stringgrid inzetten. Dit grid haalt afhankelijk van
een bepaalde waarde de informatie uit tabel 1 of 2.
Omdat het gebruik van stringgrids voor mij nieuw is heb ik een vraag m.b.t
het gebruik van kolom titels en de juiste velden gebruiken.
Tabel 1 en 2 hebben dezelfde structuur en totaal 6 velden, waarvan ik
veld 3 en 6 afgebeeld wil hebben in het grid. Ik gebruik nu onderstaande code
van het forum, maar krijgt niet gevonden hoe ik de juiste kolom afbeeld en
een titel plaats. In de praktijk kan het zijn dat tabel 1 bijv. 6 records bevat
en als tabel 2 wordt gebruikt maar 3. De stringgrid wordt gevuld maar zoals
je ziet met alle velden.
Code:
var
I, J: Integer;
AantalF, AantalR: Integer;
begin
StringGrid.FixedCols := 0;
StringGrid.FixedRows := 1;
AantalF := dmTables.qry_itemBYuitgifte.FieldCount;
AantalR := dmTables.qry_itemBYuitgifte.RecordCount;
StringGrid.ColCount := AantalF;
StringGrid.RowCount := AantalR;
for I := 0 to pred(AantalF) do begin
StringGrid.Cells[I, 0] := dmTables.qry_itemBYuitgifte.Fields[i].FieldName;
end;
J := 1;
while not dmTables.qry_itemBYuitgifte.Eof do begin
for I := 0 to pred(AantalF) do
StringGrid.Cells[I, J] := dmTables.qry_itemBYuitgifte.Fields[i].AsString;
dmTables.qry_itemBYuitgifte.Next;
Inc(J);
end;
Bookmarks