21-01-2014, 06:46 PM
إستعملت هذا الكود للفلترة في dbgrid ولم ينجح معي مع العلم أني أستعمل adotable
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
If (Table1.Locate('champ_date',datetimepicker1.Date,[])) Then
begin
Table1.Filter:='champ_date ='+ QuotedStr(datetostr(DateTimePicker1.Date));
table1.Filtered:=true;
end;
end;