Új hozzászólás Aktív témák

  • Notes

    senior tag

    válasz g4dg3t #801 üzenetére

    Köszi! Végre életet leheltél a fórumba! :R

    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? :B
    Az egyik könyvben azt olvastam, hogy a Query-hez kapcsoljak DataSource-t is. Minek? Lehet közvetlenül is hivatkozni rá nem?

    Romanes eunt domus!

Új hozzászólás Aktív témák