类型：转载 责任编辑：asp.net 日期：2007/05/23
热门软件下载：
Filter:=DeptCode=++txtDeptCode.Text++ or ++txtDeptCode.Text++=+++
非的以SQL语句写吗,那样很忙烦.
网友回答：
是啊，只能这样
Filter:=format(DeptCode=%s or %0:s=,[txtDeptCode.Text]);
在ComboBox_check里列出字段供选择
在Edit_check中输入要模糊查询的值
加个按钮
procedure TMainForm.Button_checkClick(Sender: TObject);
begin
Table.Filtered:=True;
end;
在Table的OnFilterRecord事件
procedure TMainForm.TableFilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
Accept := pos(Edit_check.Text, DataSet.FieldByName(ComboBox_check.Text).AsString) > 0;
end;
table1.Filtered:=false;
table1.Filter:=format(产品型号+=+%s,[edit5.text]);
table1.Filtered:=true;
可以用#39替换