8

このコードを使用してテーブルをフィルタリングしています:

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

しかし、それはこの例外を引き起こします:

「操作は適用されません。」

問題はどこにありますか?

4

7 に答える 7

12

ATTable.FilterはSQLクエリではありません。LIKEサポートされていません(どちらもサポートされていませんIN)。ドキュメントによると、サポートされ=ている演算子は、、、、、、'<= ANDNOTOR`です。<>><>=,,and

より複雑なフィルタリングについては、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;
于 2012-07-21T18:34:25.043 に答える
3
Table.Filtered := False;
Table.Filter := Field_Search + ' LIKE ' + QuotedStr('*' + Edit_Search.Text + '*');
Table.Filtered := True;
于 2013-05-26T04:02:44.503 に答える
2

これを使用する必要があります:

   DataModule.Table.Filtered := False;
   DataModule.Table.Filter := 'Field_Name' + ' LIKE ' + QuotedStr(Edt_SearchByCode.Text +'%');
   DataModule.Table.Filtered := True;

マジックのように機能し、TQueryを使用しなくなります....必要に応じて、マッチングでは大文字と小文字の区別が考慮されません。代わりに次のコードを使用する必要があります。

   DataModule.Table.Filtered := False;
   DataModule.Table.FilterOptions := [foCaseInsensitive];
   DataModule.Table.Filter := 'Field_Name' + ' LIKE ' + QuotedStr(Edt_SearchByCode.Text +'%');
   DataModule.Table.Filtered := True;
于 2018-04-10T17:19:18.643 に答える
1

私はこのトピックが何か他のものを探しているのを見つけました。私は常にTDataSet.OnFilterRecordイベントを使用し、ほとんどの場合TEdit.OnChangeイベントを使用するため、検索は「アクティブ」になります。

var
Criteria : string;
...
...

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Table.Filtered := False;
  Criteria := Edit1.text;
  Table.Filtered := True;
end;

そしてOnFilterイベントで

procedure TForm1.TableFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  Accept := AnsiContainsStr(Table.Fields[xx].asString,Criteria);
end;

私のために働きます。

于 2021-11-12T12:24:08.517 に答える
0

次のコードも同様に機能します。

if Edit1.Text <>'' then
begin
Query1.Filter :='FieldName ='+quotedstr('*'+ edit1.Text +'*');
Query1.Filtered:=true;
end
else
begin query1.Filtered :=false; end;
于 2017-10-30T10:18:23.670 に答える
0

私は主にTEditで使用していますここにコードがあります

if (EditSerarch.Text <> '') then
begin
FDQQuery.Filtered := false;
FDQQuery.Filter:=   'Name LIKE'+ QuotedStr('%'+EditSerarch.Text+'%') +
            ' OR Company LIKE '+ QuotedStr('%'+EditSerarch.Text+'%') +
              ' OR Phone LIKE '+ QuotedStr('%'+EditSerarch.Text+'%') +
             ' OR Mobile LIKE '+ QuotedStr('%'+EditSerarch.Text+'%');
FDQQuery.Filtered:= True;
end else FDQQuery.Filtered := false;
于 2019-07-26T08:39:31.700 に答える
-1

この操作を実行するには、SQLクエリを使用することをお勧めします。

例:

query1.SQL.Text:='Select * FROM table_name WHERE field like '+ QuotedStr(edit1.text+'%');
query1.Active:=true;
于 2013-11-01T16:35:19.983 に答える