我怀疑您的EDICOES_ID
字段是一个整数值,在这种情况下,您不需要在过滤器表达式中引用它,并且LIKE
操作符不支持 AFAIK。如果它是一个字符串字段,您确实需要引号并且LIKE
受支持,但您通常还需要表达式中的通配符。(LIKE仅支持字符(字符串)类型字段。对于数字或日期,您需要使用通常的比较运算符>、<、>=、<=、=或BETWEEN。)
也帮自己一个忙,并声明一个局部变量,并确保ComboBox
在尝试访问其Objects
. 我已经为你正在检索ItemIndex
的类型转换的中间存储和中间存储添加了一个Object
,如果你需要这样做的话,调试起来会容易得多。
这是一种解决方案(无论是整数字段还是需要引用的字符串)。
var
Idx, Value: Integer;
begin
Idx := ComboBox1.ItemIndex;
if Idx > -1 then
begin
CDSIndicados.Filtered := False;
Value := Integer(cxComboBox1.Properties.Items.Objects[Idx]);
// If the field is an integer, you don't need a quoted value,
// and LIKE isn't supported in the filter.
CDSIndicados.Filter := 'EDICOES_ID = ' + IntToStr(Value);
// Not relevant here, but LIKE isn't supported for date values
// either. For those, use something like this
CDSIndicados.Filter := 'EDICOES_DATE = ' + QuotedStr(DateToStr(Value));
// or, if the field is string and you want LIKE, you need to
// quote the value and include a wildcard inside that quoted
// string.
CDSIndicados.Filter := 'EDICOES_ID LIKE ' + QuotedStr(IntToStr(Value) + '%');
CDSIndicados.Filtered := True;
end;
end;