[Delphi] Dropdown menu met records

[Verwijderd]

Ik heb een venster met daarop een datagrid gebaseerd op een query, en nou wil ik hem laten filteren op datum, dus dat er een dropdown menutje boven komt te staan waaruit je de datum kiest en dat hij dan alleen de items op die datum weergeeft.

Er bestaat wel een tabel met al die data, en ik heb al wat zitten kloten, maar ik kom er niet uit...

qryKassabon => gegevens
tblBestelData => tabel met enkel data

[Verwijderd]

Tsja, dat is niet op te lossen met de standaard componenten; hiervoor zul je moeten programmeren

Dus op de OnCreate/OnShow van de form de combobox vullen; En op de OnChange event van de combobox de query veranderen, ofzo...

[jelmervos]

Gebruik de OnChange van de combobox voor een nieuwe query.


Edit: moet sneller leren typen.

[Verwijderd]

Op zondag 09 december 2001 23:13 schreef DiFool het volgende:
Tsja, dat is niet op te lossen met de standaard componenten; hiervoor zul je moeten programmeren

Dus op de OnCreate/OnShow van de form de combobox vullen; En op de OnChange event van de combobox de query veranderen, ofzo...

Ja, maar wat wordt dat dan?

had dit al:

for i:=0 to data.tblbesteldata.recordcount -1 do
listdates.items.add(data.tblbesteldata.???????)

dus hij moet gevuld worden met elk field 'Datum' uit elk record

[jopiek]

Je zou ook eens naar de RxLib componentnen (freeware en source) kunnen kijken...

[Verwijderd]

zoiets? gaat wel sloom als je een table met veel data hebt...

code:

var
  I, J: Integer;
  Found: Boolean;
begin
  for i := 0 to data.tblbesteldata.recordcount -1 do begin 
    Found := FALSE;
    for j := 0 to listdates.items.count-1 do begin
    if listdates.items[J] = data.tblbesteldata.FieldByName('JEDATUM').AsString then Found := TRUE;
    end;
    if not Found then listdates.items.add(data.tblbesteldata.FieldByName('JEDATUM').AsString);
  end;
end;