delphi - 使用LIKE语句进行过滤

Question

我使用此代码来过滤我的表格:

Table.Filtered := False;
Table.Filter := '[' + Field_Search + '] LIKE ''%' + Edit_Search.Text + '%''';
Table.Filtered := True;

但它引发了这个异常:

"Operation not applicable."

问题出在哪里？

Answer 1

一个TTable.Filter不是 SQL 查询。 LIKE不支持( IN 也不支持)。支持的运算符有 = , <> , > , < , >= , '<= ,和 ,不是and或`，根据 the documentation

要进行更复杂的过滤，请使用 TDataSet.OnFilterRecord事件:

procedure TForm1.Table1FilterRecord(Dataset: TDataset; var Accept: Boolean);
begin
  // Don't remember if D7 supports DataSet[FieldName] syntax; if not,
  // use DataSet.FieldByName instead, or a persistent field.
  Accept := Pos(Edit_Search.Text, DataSet[SearchField].AsString) > 0;
end;