我的数据库中有一些数据为0, 如何能使这些为0的数字 在DBGrid中不显示出来? 急盼回复,在这先谢谢各位大侠了!!!

Hi shaohong99,    使用 Filter 或是 OnFilterRecord 事件中過濾，甚至於 SQL Command 中就過濾掉也可以    1.Filter

procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;
  Query1.Open;
  Query1.Filtered := False;
  Query1.Filter := 'FloatFieldName <> 0';
  Query1.Filtered := True;
end;

2.OnFilterRecord Set Query1.Filtered to True and add below code to Query's OnFilterRecord Event

procedure TForm1.Query1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  if Dataset.FieldByName('FloatFieldName').AsFloat = 0 then
    Accept := False
  else
    Accept := true;
end;

3.SQL Command

select  *
from    yourtable
where   floatfieldname <> 0

發表人 -

------
Fishman

您好﹗    您可使用在DBGrid的OnDrawColumnCell事件中重繪DBGrid的方法﹐將某欄位值為0的不做顯示﹐方法如下﹕

Var
  CellStr : String;
begin
  CellStr := '';
  if SameText(Culumn.FieldName, '欄位名稱') then
  // 欄位名稱處填入相對應的欄位名稱﹐如果有多欄位的話﹐也可使用
  // Or語法統一再對其進行判斷
    begin
      if Column.Field.Value = 0 then
        DBGrid1.Canvas.TextRect(Rect, Rect.Left+2, Rect.Top+2, CellStr);
    end;
end;

================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================

------
忻晟