方法1: 把那些字段的DisplayFormat属性设为#,##0.00 方法2 procedure Tform1.ADOQuery1AfterOpen(DataSet: TDataSet); var I: Integer; begin for I := 0 to DataSet.Fields.Count - 1 do case DataSet.Fields[I].DataType of ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency, ftBCD: TNumericField(DataSet.Fields[I]).DisplayFormat := '#,##0.00'; end; end;
也可以在查询语句中控制,如select 字段=cast(字段 as decimal(10,4)) from 表
一、在sql里设置字段的类型为decimal,下面有一个栏目是设置小数位数的。 二、或者在adoqeury的sql里写select left(字段,几位) from 表名。
把那些字段的DisplayFormat属性设为#,##0.00
方法2
procedure Tform1.ADOQuery1AfterOpen(DataSet: TDataSet);
var
I: Integer;
begin
for I := 0 to DataSet.Fields.Count - 1 do
case DataSet.Fields[I].DataType of
ftSmallint, ftInteger, ftWord, ftFloat, ftCurrency, ftBCD:
TNumericField(DataSet.Fields[I]).DisplayFormat := '#,##0.00';
end;
end;
二、或者在adoqeury的sql里写select left(字段,几位) from 表名。