08-03-2014, 09:51 AM
السلام عليكم
أخي الكريم جرب الكود
أخي الكريم جرب الكود
كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
If (Table1.Locate('champ_date',DateToStr(DateTimePicker1.Date),[])) Then
begin
Table1.Filter:='champ_date ='+ QuotedStr(datetostr(DateTimePicker1.Date));
table1.Filtered:=true;
end;
end;