19-07-19, 03:34 AM
بصراحة أنا هاو و مبتدء ايضا و من سؤال أحد الأعضاء عن الفلترة كتب لي كود فلترة شبيه بهذا و انا اكتبه لك عله يفيدك :
PHP كود :
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if ComboBox1.Text <>String.Empty then
begin
DataModule2.ADOTable1.Filtered:=false;
DataModule2.ADOTable1.Filter:= ' [itemname] Like ' + QuotedStr('%' + ComboBox1.Text + '%') ;
DataModule2.ADOTable1.Filtered:=true ;
end
else
begin
DataModule2.ADOTable1.Filtered:=false;
end;
end;
سبحان الله وبحمده سبحان الله العظيم و الحمد لله ولا اله الا الله والله اكبر
