filtered是否可以這樣用﹐想做個過濾的查詢方法﹐即在ComboBox或者EDIT中輸入項目的時候﹐DBGRIDEH中只顯示相關項目﹐其他無關的則隱藏起來。用Table的話不知道怎么寫代碼﹕(有原因不能用QUERY)
procedure TPMMtInfo.BtnFindClick(Sender: TObject);
begin
with Table1 do
begin
Filtered:= false;
filter:= 'itemcode like ''%'+Trim(edit2.Text)+'%''';
Filtered:=True;
end;
end;
procedure TPMMtInfo.BtnFindClick(Sender: TObject);
begin
with Table1 do
begin
Filtered:= false;
filter:= 'itemcode like ''%'+Trim(edit2.Text)+'%''';
Filtered:=True;
end;
end;
filter:= 'itemcode like ''%'+quotedstr(Trim(edit2.Text))+'%''';
with Table1 do
begin
Filtered := False;
Filter := 'ItemCode LIKE ''%' + Trim(edit2.Text) + '%''';
ShowMessage(Filter); //看看 Filter对不对
Filtered := True;
end;