我想对一些数据进行filter, 字段类型为widestring,在输入汉字时过滤,结果出错。这是什么原因?
解决方案 »
- 我下载了一个dxDBGrid控件,但是在使用其分组显示时那行英文'drag a column header ...'如何改成中文啊?
- 如何实现对 某 word 文件的读取,并搜索在该文件中的是否存在某个关键字????分不够可以加!!!!!!!!
- 在线等..动态创建TTimer的问题。我一直给分都很大方。。。
- 关于TDBChart与数据库连接的问题
- [-----打印发票----]
- 我東莞,我想用delphi做一個程序啟動我們在臺灣的sql server服務器,請問可以嗎?
- 关于串口通信(紧急)
- 奇怪的SQL語句.sql.Add('select * from overtime where convert(varchar,overtime_date,111) like '+'''%'+trim(edit_time.Text)+'%'+'''
- 谁使用过ThemeEngine?我有一个问题要问。
- 求一个socket简单例子,含源代码
- 请问用什么语句能够实现本地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;