Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TForm3.rechercher(Sender: TObject); begin NOTIF_RETRAIT.Filtered := false; if cb_dt_fct.Checked then begin if NOTIF_RETRAIT.Filter = '' then NOTIF_RETRAIT. Filter :='(Date >= '+ datetostr(dtp1_fct.Date)+' and Date <= '+Quotedstr(datetostr(dtp2_fct.Date))+ ')' else NOTIF_RETRAIT .Filter:=NOTIF_RETRAIT. Filter + ' and ' + '(Date>=' + Quotedstr(datetostr(dtp1_fct.Date)) + ' and Date <= ' + Quotedstr(datetostr(dtp2_fct.Date)) + ' )'; end; if NOTIF_RETRAIT .Filter <> '' then begin NOTIF_RETRAIT .Filtered := true; end; end;