Hirdetés
Legfrissebb anyagok
LOGOUT témák
- Brogyi: CTEK akkumulátor töltő és másolatai
- Luck Dragon: Asszociációs játék. :)
- Real Racing 3 - Freemium csoda
- Meggyi001: Kórházi ellátás: kuka vagy finom?
- Oldman2: A KOReader ebook olvasó program
- Elektromos rásegítésű kerékpárok
- sziku69: Fűzzük össze a szavakat :)
- GoodSpeed: WindowBlinds 11
- 20230101_102713676_iOS
- Flashback: Építsünk PC-t akciós alkatrészekből, lassan. upd: 10.03
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
- „Új mérce az Android világában” – Kezünkben a Vivo X300 és X300 Pro
- Apple asztali gépek
- Milyen autót vegyek?
- Hardcore café
- One otthoni szolgáltatások (TV, internet, telefon)
- LEGO klub
- Samsung Galaxy S23 Ultra - non plus ultra
- Apple MacBook
- Vezeték nélküli fejhallgatók
- Suzuki topik
- További aktív témák...
Új fizetett hirdetések
- HP EliteBook 840 G10 - 14"WUXGA - i7-1360P - 16GB - 512GB - Win11 - MAGYAR - 3 év garancia
- Ryzen5 4500/ RTX2060/ 16GB DDR4 alapú konfig/ garancia/ ingyen foxpost
- Régi okostelefon tokok - 500 Ft/darab
- Corsair VENGEANCE LPX 2x16GB DDR4 3200MHz CL16 - Új, bontatlan - Eladó!
- LG UltraGear 32GQ85X-B LED IPS Monitor! 2560x1440 / 240Hz / 1ms / FreeSync / G-Sync
Üzleti előfizetők hirdetései
- GYÖNYÖRŰ iPhone 13 mini 128GB Green -1 ÉV GARANCIA -Kártyafüggetlen, MS3899, 100% Akkumulátor
- Bomba ár! Lenovo ThinkPad T470s - i5-7GEN I 8GB I 256GB SSD I 14" FHD I Cam I W11 I Garancia!
- Bomba ár! HP ProBook 450 G8 - i5-1135G7 I 8GB I 256SSD I HDMI I 15,6" FHD I Cam I W11 I Gar
- Csere-Beszámítás! Gamer Notebook! MSI Thin 15 B12UC! I5 12450H / RTX 3050 / 16GB DDR4 / 512GB SSD!
- Redmi 15C / 4/128GB / Kártyafüggetlen / 12Hó Garancia / BONTATLAN NULL Perces
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest
Cég: NetGo.hu Kft.
Város: Gödöllő



