一个三层的程序，db：oralce， 客户端clientdataset在进行filter汉字时，总是报错EDBClient with message"type mismatch in expression"

[flyingfox_1979]

我想对一些数据进行filter， 字段类型为widestring，在输入汉字时过滤，结果出错。这是什么原因？

[flyingfox_1979]

没有人遇到过这样的问题吗？

• 打赏
• 举报

回复 赞

[johnma]

这是midas最大的bug,borland一直没改

• 打赏
• 举报

回复 赞

[johnma]

如果可以的话，后台数据库字段不要用nvarcahr,改用varchar就ok

• 打赏
• 举报

回复 赞

[flyingfox_1979]

到底如何能解决这个问题啊，或者有什么可以替代的方法

• 打赏
• 举报

回复 赞

[Erice]

直接用SQL语句或者LOCAT，，建议在服务器上作查询，，在客户端用FITER，用户回受不了的！！

• 打赏
• 举报

回复 赞

[flyingfox_1979]

该过程代码如下：
procedure TSysLookupFM.BtnFilterClick(Sender: TObject);
begin
EdtFilter.SetFocus;
with FField.LookupDataSet do begin
Filtered := False;
Filter := '';
if Trim(EdtFilter.Text) <> '' then begin
Filter := '(';
Filter := Filter + Fields[1].FieldName + ' like ' + QuotedStr(Trim(EdtFilter.Text) + '%');
Filter := Filter + ' or ' + Fields[1].FieldName + ' like ' + QuotedStr('%' + Trim(EdtFilter.Text) + '%');
Filter := Filter + ' or ' + Fields[1].FieldName + ' like ' + QuotedStr('%' + Trim(EdtFilter.Text));
Filter := Filter + ')';
if FieldCount > 4 then begin
Filter := Filter + ' and ' + Fields[4].FieldName + ' = 0 ';
end;
end else begin
if FieldCount > 4 then begin
Filter := Fields[4].FieldName + ' = 0 ';
end;
end;
Filtered := True;
BtnYes.Enabled := not IsEmpty;
end;
end;

• 打赏
• 举报

回复 赞

[Guade]

是你的Oracle的字符集的问题。

• 打赏
• 举报

回复 赞