引言: 您好： 要隱藏某列，只要您在下SQL語法時，下WHERE條件排除便可以啦！！ ~~應無所住而生其心~~

引言: 可我要判断的东西太复杂，所以想不出asl语句怎么写

// 1..在 dbGrid->DataSource->DataSet(假設為Table1) 的OnFilterRecord 事件中撰寫
//
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  //條件判斷 理論上任何的程式碼皆可接受，但要注意 絕對不可動到DataSet的記錄指標  
  ....
  ....
  // 因為每筆記錄皆會觸發此事作，
  // 最後給作用中的記錄一個結果 (接受或不接受)
  If  (要顯示) Then 
    Accept := True
  Else
    Accept := False;
end;
     // 2..在需要過濾的時候將過濾功能打開
Tale1.Filted := True;

引言:

// 1..在 dbGrid->DataSource->DataSet(假設為Table1) 的OnFilterRecord 事件中撰寫
//
procedure TForm1.Table1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  //條件判斷 理論上任何的程式碼皆可接受，但要注意 絕對不可動到DataSet的記錄指標  
  ....
  ....
  // 因為每筆記錄皆會觸發此事作，
  // 最後給作用中的記錄一個結果 (接受或不接受)
  If  (要顯示) Then 
    Accept := True
  Else
    Accept := False;
end;
// 2..在需要過濾的時候將過濾功能打開
Tale1.Filted := True;

引言: adoquery能用吗？

引言:

引言: adoquery能用吗？

有看到OnFilterRecord事件及Filted屬性 就可以

假設 AdoQuery1已開啟一些資料錄    AdoQuery1.Close;
AdoQuery1.Filtered; // 記得要先設為 False;
AdoQuery1.SQL.Clear;
AdoQuery1.SQL.Add('Select * From SomeTable');
AdoQuery1.SQL.Add('Where Field1=''SomeValue'' ');
AdoQuery1.Open;
// 如果有需要一開啟就過濾則加以下指令
AdoQuery1.Filtered := True;    // 1..在OnFilterRecord 事件中撰寫
//
procedure TForm1.AdoQuery1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  // 姓'王' 且年齡大於等於30 者 才會顯示 其他則隱藏
  If     (DataSet.FieldByName('Age').AsInteger >= 30)
     And (Copy(DataSet.FieldByName('Name').AsString,1,2)= '王') Then 
    Accept := True  // 接受(會顯示)
  Else
    Accept := False;// 不接受(不會顯示)
end;
     // 2..在需要過濾的時候將過濾功能打開
例如在按了某個按鈕後才需過濾，則在該按鈕的OnClick事件中加入下列指令
Procedure TForm1.Button1Click(Sender:TObject);
Begin
  AdoQuery1.Filtered := True;//開啟功能
  或
  AdoQuery1.Filtered := Not AdoQuery1.Filtered; //切換功能
End;