为什么Filter过滤器不能被打开?解决方案

为什么Filter过滤器不能被打开?
procedure TForm1.DBLookupComboboxEh1Change(Sender: TObject);
var
  tstr:string;
begin
tstr:= Trim(DBLookupComboboxEh1.Text);
 if tstr<>'' then ADOQuery1.Filter:='IsCarMgr like ''%'+tstr+'%'' '
 else
 ADOQuery1.Filter:='';
ADOQuery1.Filtered:=True;
end;



只要 IsCarMgr 是int就会报错 过滤器不能被打开

[解决办法]
procedure TForm1.DBLookupComboboxEh1Change(Sender: TObject);
var
tstr:string;
begin
 tstr:= Trim(DBLookupComboboxEh1.Text);
 if tstr<>'' then 
 begin
ADOQuery1.Filter:='IsCarMgr like ''%'+tstr+'%'''
AdoQuery1.Filtered :=True;
 else
ADOQuery1.Filtered:=False;
end;
这样试试
[解决办法]

Delphi(Pascal) code

procedure TForm1.DBLookupComboboxEh1Change(Sender: TObject);var  tstr:string;begin tstr:= Trim(DBLookupComboboxEh1.Text); if tstr<>'' then   begin  ADOQuery1.Filter:='IsCarMgr like ''%'+tstr+'%'''  AdoQuery1.Filtered :=True; end else  ADOQuery1.Filtered:=False;end;
[解决办法]
看看IsCarMgr的类型与tstr的内容是否匹配