如何避免 ClientDataSet 过滤器中的“表达式中的类型不匹配”

Question

运行此代码时出现错误消息“表达式中的类型不匹配”：

CDSIndicados.Filtered := False;
CDSIndicados.Filter   := 'EDICOES_ID like ' + QuotedStr(IntToStr(Integer(cxComboBox1.Properties.Items.Objects[cxComboBox1.ItemIndex])));
CDSIndicados.Filtered := True;

我知道当字段的数据类型有错误时，可能会出现此消息。但我无法修复。是这样吗？

Answer 1

我怀疑您的 EDICOES_ID 字段是一个整数值，在这种情况下，您不需要在过滤器表达式中引用它，并且 LIKE 运算符不受 AFAIK 支持。如果它是一个字符串字段，您确实需要引号并且支持LIKE，但您通常也需要在表达式中使用通配符。 （LIKE 仅支持字符（字符串）类型字段。对于数字或日期，您需要使用常用的比较运算符 >、=、 或在之间。）

也帮自己一个忙，声明一个局部变量，并确保在尝试访问其Objects 之前确实在ComboBox 中选择了一个项目。我已经为 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;