Q_Filter.Filter := 'spltag like ''%' + txtShort.Text + '+%+'''
还是不对。错误提示还是Operation not applicable
好好看看一下代码吧: Var QueryStr : String; begin ADOQCD.Filtered:=False; If InputQuery('请输入您要查询的条件','产地代号:',QueryStr) then Begin ADOQCD.Filter:='产地代号 like '''+QueryStr+'*'''; ADOQCD.Filtered:=True; End; end;
Var QueryStr : String;
begin
ADOQCD.Filtered:=False;
If InputQuery('请输入您要查询的条件','产地代号:',QueryStr) then
Begin
ADOQCD.Filter:='产地代号 like '''+QueryStr+'*''';
ADOQCD.Filtered:=True;
End;
end;