Hirdetés
Legfrissebb anyagok
LOGOUT témák
- sziku69: Szólánc.
- sziku69: Fűzzük össze a szavakat :)
- Luck Dragon: Asszociációs játék. :)
- hcl: Poco F2 Pro facepalm
- MasterDeeJay: Harc a DDR5 árak ellen
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- flymi: Segítségkérés! Ausztráliában élő ismerőse van valakinek?
- Elektromos rásegítésű kerékpárok
- urandom0: Száműztem az AI-t az életemből
- Parci: Milyen mosógépet vegyek?
PROHARDVER! témák
Mobilarena témák
IT café témák
Új hozzászólás Aktív témák
-
Notes
senior tag
Köszi! Végre életet leheltél a fórumba!

Végül így oldottam meg (Thx to prog.hu community!):
Begin
Close;
Clear;
Add('SELECT *');
Add('FROM TranzTabla');
Add('WHERE (Datum>= :KezdDatum) AND (Datum<= :VegDatum)');
If LekerdFelhComboBox.ItemIndex>0 Then
Add ('AND (Felhasznalo= '+ Quotedstr(LekerdFelhCombobox.text)+')');
If LekerdPartnerComboBox.ItemIndex>0 Then
Add ('AND (Partner= ' + Quotedstr(LekerdPartnerCombobox.text)+')');
If LekerdCimletCombobox.Itemindex>0 Then
Add ('AND '+ VPDataModule.TranzTabla.Fields[(LekerdCimletComboBox.ItemIndex)+5].FieldName +' is not null');
Prepare;
ParamByName('KezdDatum').AsDate:=LekerdDatePicker1.Date;
ParamByName('VegDatum').AsDate:=LekerdDatePicker2.Date;
Open;
end;
end;
Ez egy DBGrid-re irányítva hibátlanul működik. De ha a Query-t egy Reportra teszem és annak az OnPreview eseményekor hívom meg a fenti kódot, akkor mindig csak a feltételeknek elsőként megfelelő rekord jelenik meg, de az annyiszor, ahány rekord megfelel az SQL statement-nek. Nem tudom ez így érthető-e?
Az egyik könyvben azt olvastam, hogy a Query-hez kapcsoljak DataSource-t is. Minek? Lehet közvetlenül is hivatkozni rá nem?
Új hozzászólás Aktív témák
Aktív témák
- DUNE médialejátszók topicja
- Pánik a memóriapiacon
- sziku69: Szólánc.
- Star Wars: Fate of the Old Republic megjelenés még 2030 előtt?
- EU-s vám vethet véget a nagyi temus vásárlási lázának
- MIUI / HyperOS topik
- Windows 11
- Adventi kalendáriumok
- Vezetékes FÜLhallgatók
- Gumi és felni topik
- További aktív témák...
Új fizetett hirdetések
- Apple Airpods 2 hibátlan dobozos
- Bontatlan! Csere-Beszámítás! 2028.12.11 Gari! Apple Macbook Air 15.3 M4! 10C/16GB/256GB
- Apple Airpods Pro 3 2026.11.08. Apple jótállás
- Gamer PC-Számítógép! Csere-Beszámítás! R5 3600 / RX 5700XT / 16GB DDR4 / 256 SSD + 2TB HDD
- Magyar menüs Delonghi Magnifica S cappuccino automata kávéfőző tejtartállyal
Üzleti előfizetők hirdetései
- ÁRGARANCIA!Épített KomPhone i7 14700KF 32/64GB RAM RTX 5070 Ti 16GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone i5 14400F 32/64GB RAM RTX 5060 Ti 8GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RTX 5060 Ti 16GB GAMER PC termékbeszámítással
- Yurbuds Ironman fülhallgató
- 134 - Lenovo Legion Pro 7 (16IRX8H) - Intel Core i9-13900HX, RTX 4090 - 3 év garancia
Állásajánlatok
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest
Cég: ATW Internet Kft.
Város: Budapest



