24-03-2015, 10:55 PM
للاسف اشتغلت معي فقط
لكن عند البحث لا ياتيني شيء فقط كل الخلايا في الجدول تختفي ولا تعود ابدا
كود :
AdoTable1.Filtered := False
AdoTable1.Filter := 'FiledName = '+QuotedStr(Edit1.Text)
AdoTable1.Filtered := True;