04-09-2012, 06:39 PM
السلام عليكم...استخدم شرط قبل التصفية
PHP كود :
If (Table1.Locate('champ_date',datetimepicker1.Date,[])) Then
PHP كود :
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;

