程式中的query1中顯示的是一個table的所有記錄﹐有一個datasource想關聯﹐然后再聯上一個 DBGRID 表格里有一個欄位顯示的是size的值﹐在不改變QUERY1的SQL的情況下,為DBGRID寫程式讓其只顯示size>20 的值, -----------------------------------------------------謝謝﹗

您好﹗    將以下程式寫在DBGrid元件的OnDrawColumnCell重繪事件中試試﹕

begin
  if DBGrid1.Columns[欄位索引].Field.AsInteger <= 20 then
    begin
      DBGrid1.Columns[欄位索引]Font.Color := 相同于DBGrid1底色的顏色值;
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
    end;
end;

========================= 大病初愈﹐休養調整中... ========================= 發表人 - cashxin2002 於 2004/10/16 10:42:38

------
忻晟

不使用到修改資料。 可以在 DBGRID 的 ONDrawColumnCel 直接替代原來顯示文字 procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); begin if SameText(Column.FieldName,'size') then begin DBGrid1.Canvas.FillRect(Rect); if Column.Field.asInteger>20 then begin DBGrid1.Canvas.TextRect(Rect,Rect.Left 2,Rect.TOP 2,Column.Field.asString); end; end; end; 不好意思！沒有看到 cashxin2002 版主的發表 發表人 - wameng 於 2004/10/16 10:35:54

您好: 還有一個Filter可以利用...再設定Filtered := True;

你好 除了cashxin2002兄的建議,另提供種建議 設Filtered := True 然後在 procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean); begin Accept := Table1.FieldByName(field1').AsInteger > 100; end; 如此可直接過濾資料,僅顯示你要顯示的資料 ========================= 讀萬卷書~不如來K.TOP走一遭 =========================