yashar666
جمعه 22 آذر 1387, 22:14 عصر
با سلام من یه بانک با اکسس دارم برای فیلتر کردن اطلاعات این کار رو کردم
procedure TForm1.Edit1Change(Sender: TObject);
var
Fieldname:WideString;
begin
Fieldname:=DBGrid1.Columns[2].FieldName;
ADOTable1.Filtered:=False;
ADOTable1.Filter :=Fieldname+' Link '+QuotedStr('%'+Edit1.Text+'%');
if Edit1.Text<>''then
ADOTable1.Filtered:=True;
end;
ولی زمان اضافه کردن یه کلمه به error edit میده !
مشکل کجاست ؟
http://i33.tinypic.com/s3ec84.jpg
procedure TForm1.Edit1Change(Sender: TObject);
var
Fieldname:WideString;
begin
Fieldname:=DBGrid1.Columns[2].FieldName;
ADOTable1.Filtered:=False;
ADOTable1.Filter :=Fieldname+' Link '+QuotedStr('%'+Edit1.Text+'%');
if Edit1.Text<>''then
ADOTable1.Filtered:=True;
end;
ولی زمان اضافه کردن یه کلمه به error edit میده !
مشکل کجاست ؟
http://i33.tinypic.com/s3ec84.jpg