我想对一些数据进行filter, 字段类型为widestring,在输入汉字时过滤,结果出错。这是什么原因?
解决方案 »
- 接上Button1Click要执行很多遍才能计算出正确结果(续)
- 输入一段文字(1000字)到FOMR2中
- 窗口布局问题
- dbgrid的问题!
- 回答问题&&散分
- 为何我的DELPHI6。O的程序打不开呢,
- 用代码为treeview控件的节点增加子节点,为什么子节点没显示出来呢?(以后一定加分)
- 急死我了!关于xpmenu控件的安装和使用
- 高手指教:如何写这样的SQL语句...
- 使用quickrep打印,如何将某字段(学校代码)自动按学校代码分页打印这个学校都额所有学生?另外的另起一页开始打印
- 请问用什么语句能够实现本地Access导入到SQL-Server中,近来看看吧
- 如何动态调用DLL,还有就是如公何调用VB写的DLL??
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;