delphi - 需要 Delphi 和 ADOTable 过滤方面的帮助

Question

我正在尝试构建一个在 Access 数据库中保存数据的发票程序。我有一些 tedit 、按钮、一个数据源、一个 adotable、一个 dbgrid 和一个弹出菜单。数据库格式为accdb。

问题:我希望程序在用户键入时过滤记录。它可能会过滤 dbgrid 或 tedit，没关系。我以某种方式找到了一些代码，例如:

Table1.FilterOptions:=[foCaseInsensitive];
Table1.Filter:='Filmadi='+QuotedStr(Edit1.Text+'*');
Table1.Filtered:=true;

上面的代码给出了此错误:Project Project1.exe 引发异常类 eoleexception 并显示消息:在与请求的名称或序号相对应的集合中找不到项目

其他示例给出了各种错误。

真诚的
奥努尔

Answer 1

在过滤器中使用 LIKE 运算符:

procedure DoIncrementalFilter(Dataset: TDataSet; const FieldName, SearchTerm: string);
begin
  Assert(Assigned(Dataset), 'No dataset is assigned');

  if SearchTerm = '' then
    Dataset.Filtered := False
  else
  begin
    Dataset.Filter := FieldName + ' LIKE ' + QuotedStr(SearchTerm + '*');
    Dataset.Filtered := True;
  end;
end;

示例:

  DoIncrementalFilter(ADOTable1, 'Filmadi', Edit1.Text);