Question

求delphi ADOQuery Filter 过滤显示参数错误。

procedure TMainForm.DBLookupComboBox1CloseUp(Sender: TObject);
begin
ADOQuery2.Filter := '景点<>'+ DBLookupComboBox1.Text;
ADOQuery2.Filtered := TRUE;
DBLookupComboBox2.Refresh;
end;

代码如上，我是想字段‘景点’，当 DBLookupComboBox1，选择了字段‘景点’的一个数据，当在DBLookupComboBox2就不出现DBLookupComboBox1已选的数据。。。不知道为什么。上面写的就是错误的。。麻烦高人解答。。。

Answer 1

将ADOQuery2.Filter := '景点<>'+ DBLookupComboBox1.Text;
改成ADOQuery2.Filter := '景点<>‘’'+ DBLookupComboBox1.Text+‘’‘’;
试试。

有疑问可以Hi我。

追问

ADOQuery2.Filter := '景点'''+ DBLookupComboBox1.Text+'''';是成功了。
但是如果我DBLookupComboBox控件，有好多个，应该怎么设置呢。还是每个都写成这样的？

追答

是的。每个都这样设置。
后面加字符串变量时，一定要加上引号，而在引号里面，两点''表示单引号'。
即ADOQueryN.Filter := 'FieldName OperationSign'''+stringvar+''''。
FieldName为查询条件的字段名。OperationSign是指操作符，如like,=,等等。stringvar是指字符串变量，如你上面的DBLookupComboBox1.Text。