我想对一些数据进行filter, 字段类型为widestring,在输入汉字时过滤,结果出错。这是什么原因?
解决方案 »
- 如何通过 IE的 IWebBrowser2 接口 执行 javascript代码?
- dll调用问题
- delphi很简单的问题,马上结贴!
- 找delphi兼职工作,顶者有分
- 我想在引用另一过程中的一个LABEL的CAPTION值应如何做?
- 请问如果查找成功怎么代码写入数据表aa呀,并且怎么样写代码把表字段显示在界面上,谢谢了
- 寻找一个可以根据数据库表生成DELPHI和VB类的软件(现在一下找不到了,以前下载过)
- 怎么改造DBGRID?回答详细且正确者多加50分!!!
- TcxDBlookupcombobox如何获取下拉列表中非关键字段的选中的值
- 数据处理结果如何存成EXCEL格式的文件?
- stringgrid的小问题
- 关于MDI窗体的疑惑?
{******************************************************************************}
{ 过滤 }
{******************************************************************************}
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;
Filter := Filter + ' and ' + Fields[4].FieldName + ' = 0 ';
end;
/// 如果 Fields[4] 是字符型就会出错