+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : الفلترة في جدول AdoTable ومكون dbgrid (/showthread.php?tid=5873)
الفلترة في جدول AdoTable ومكون dbgrid - hallal02 - 21-01-2014
إستعملت هذا الكود للفلترة في 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;الفلترة في جدول AdoTable ومكون dbgrid - comer - 08-03-2014
السلام عليكم
أخي الكريم جرب الكود
كود :
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;الفلترة في جدول AdoTable ومكون dbgrid - hallal02 - 08-03-2014
بارك الله فيك أخي comer