在Dbgrid控件中某一列为数字，如果为“0”，如何让其显示为空白？

[hcs]

在Dbgrid控件中某一列为数字，如果为“0”，让其显示为空白，不要显示为“0”或“0.00",如何处理。

[Delfly]

该字段的OnGetText事件中:
if Sender.AsCurrency=0 then
Text :=' '
else
Text :=Fomatfloat('#,##0.00',Sender.AsCurrency) ;

[zheng]

用数值型字段的displayformat属性:###.##

[supershan]

同意

[balaschen]

写DBGrid的OnDrawColumnCell事件：
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.FieldName='YourFieldName' then
begin
if Column.Field.AsInteger<>0 then
begin
DBGrid1.Canvas.TextRect(Rect,Rect.left+2,Rect.Top+2,Column.Field.AsString);
end
else
begin
DBGrid1.Canvas.TextRect(Rect,Rect.left+2,Rect.Top+2,'');
end;
end;
end;