Legfrissebb anyagok
Mobilarena témák
PROHARDVER! 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
- Poco F7 – bajnokesélyes
- Mibe tegyem a megtakarításaimat?
- Telekom mobilszolgáltatások
- Brogyi: CTEK akkumulátor töltő és másolatai
- NVIDIA GeForce RTX 4080 /4080S / 4090 (AD103 / 102)
- Autós topik
- droidic: Windows 11 önállóság nélküli világ: a kontroll új korszaka
- Yettel topik
- Kerékpárosok, bringások ide!
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- További aktív témák...
Új fizetett hirdetések
- Dell OptiPlex 3010 MT , i3-3240, 8Gb RAM, 256GB SSD- KIS HIBÁS!!
- Zotac Magnus One barebone számítógép Core i5 processzor, 32 GB memória és RTX 3060 VGA kártyával
- PATRIOT 32GB Viper Venom DDR5 6400MHz CL32 KIT PVV532G640C32K
- ÚJ ASUS CORE I5 14400F Gamer MAX PC 10X4.6GHz 32GB DDR5 1.0TB SSD NVIDIA RTX 3060TI 8GB DDR6 2ÉV GAR
- HP Z440 GAMER OPTIMUM WORKSTATION PC 4X3.6GHz 32GB DDR4 512GB SSD RTX 2060 6GB DDR6 WIN11 1ÉV GAR!
Üzleti előfizetők hirdetései
- GYÖNYÖRŰ iPhone 15 Plus E-SIM 128GB Black -1 ÉV GARANCIA - Kártyafüggetlen, MS3355, 100% Akksi
- HP ZBook Firefly 14 i7-1165G7 16GB 1000GB Nvidia Quadro T500 4GB 14" FHD 1 év garancia
- Dell USB-C dokkolók: (K20A) WD19/ WD19S/ WD19DC + 130W, 180W, 240W töltők
- BESZÁMÍTÁS! Apple Macbook Pro 16" 2019 i9 64GB 512GB 5500M macbook garanciával hibátlan működéssel
- Xiaomi 13T Pro 512GB, Kártyafüggetlen, 1 Év Garanciával
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest





