我使用此代码过滤我的表格:
Table.Filtered := False;
Table.Filter := '[' + Field_Search + '] LIKE ''%' + Edit_Search.Text + '%''';
Table.Filtered := True;
但它引发了这个例外:
“操作不适用。”
哪里有问题?
答案 0 :(得分:8)
TTable.Filter
不是SQL查询。不支持LIKE
(IN
也不支持)。受支持的运算符为=
,<>
,>
,<
,>=
,'&lt; = ,
和,
NOT根据{{3}}
and
或`
对于更复杂的过滤,请使用the documentation事件:
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;
答案 1 :(得分:3)
Table.Filtered := False;
Table.Filter := Field_Search + ' LIKE ' + QuotedStr('*' + Edit_Search.Text + '*');
Table.Filtered := True;
答案 2 :(得分:0)
以下代码也适用于赞:
if Edit1.Text <>'' then
begin
Query1.Filter :='FieldName ='+quotedstr('*'+ edit1.Text +'*');
Query1.Filtered:=true;
end
else
begin query1.Filtered :=false; end;
答案 3 :(得分:0)
你应该用这个:
DataModule.Table.Filtered := False;
DataModule.Table.Filter := 'Field_Name' + ' LIKE ' + QuotedStr(Edt_SearchByCode.Text +'%');
DataModule.Table.Filtered := True;
并且将像Magic一样工作,不再使用TQuery .... 如果你想匹配不考虑区分大小写。 你应该使用这个代码:
DataModule.Table.Filtered := False;
DataModule.Table.FilterOptions := [foCaseInsensitive];
DataModule.Table.Filter := 'Field_Name' + ' LIKE ' + QuotedStr(Edt_SearchByCode.Text +'%');
DataModule.Table.Filtered := True;
答案 4 :(得分: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;
答案 5 :(得分:-1)
我建议使用SQL查询来执行此操作。
示例:
query1.SQL.Text:='Select * FROM table_name WHERE field like '+ QuotedStr(edit1.text+'%');
query1.Active:=true;