!!急急: 一个三层的程序,db:oralce, 客户端clientdataset在进行filter汉字时,总是报错EDBClient with message"type mismatch in e 我想对一些数据进行filter, 字段类型为widestring,在输入汉字时过滤,结果出错。这是什么原因? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 在汉字字符串加上quotedstr().估计是少引号 该段filter代码如下,帮忙分析:{******************************************************************************}{ 过滤 }{******************************************************************************}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; if FieldCount > 4 then begin Filter := Filter + ' and ' + Fields[4].FieldName + ' = 0 '; end;/// 如果 Fields[4] 是字符型就会出错 酒店管理的房态表怎么实现 感动-纪实-国庆-散分 利用API获得硬盘序列号,需要支持IDE和SCSI硬盘的 'A call to an OS function failed' 这种错误各位大侠有没见过,帮忙解决一下吧!!!! Delphi的打包工具哪里找啊?再问一个弱的。 interweb如何发布? 急啊:谁写一段代码给我,把memo中的词提取出来,放到另一个memo中 多線程問題(在線等待) 在QuickRep中如何取得打印机设定的纸张 最老的win95和三层的问题 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] 是字符型就会出错