为什么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的内容是否匹配