求教dbgrid 显示格式！

Question

adoQToday.SQL.Add('select cash from accounts where [dodatetime]>=#'+dateS+'# and [dodatetime]<=#'+dateEnd+'#');
adoQToday.Active:=True;
这个cash是金额，我需要在DBGRID中显示的想ACCESS一样如 ￥250.00
我用的是ACCESS2000。 谢谢！

Answer 1

adoQToday.FieldByName('cash').currency := true;

Answer 2

把那个字段的DisplayFormat属性设为￥#,##0.00

Answer 3

双击你的adoQToday,在cash字段的displayformat中输入0.00;;''或者，将FormatFloat('0.00',cash)赋给你的Grid相应的字段值

Answer 4

如果是动态加入的字段，没有Displayformat 怎么办？？？？

Answer 5

procedure TfrmMiddle.ADOQuery1AfterOpen(DataSet: TDataSet);
var
  I: Integer;
begin
  for I := 0 to DataSet.Fields.Count - 1 do
    case DataSet.Fields[I].DataType of
       ftFloat, ftCurrency, ftBCD:
        TNumericField(DataSet.Fields[I]).DisplayFormat := '￥#,##0.00';
    end;
end;

Answer 6

动态显示 smiler007是正确的。谢谢！！