شكرا جزيلا لقد نجحت العملية.بارك الله فيك
لكن انا لا استعمل ado في مكانه table1
شكرا
لكن انا لا استعمل ado في مكانه table1
شكرا
كود :
procedure TForm1.DatetimepickerChange(Sender: TObject);
begin
if datetimepicker1.Text<>' / / ' then
begin
table1.Filter:='date like ' +QuotedStr(DateTimeToStr(datetimepicker1.Date));
table1.Filtered:=true;
end
else
table1.Filtered:=false;
end;