方法二: 在程序中动态给定显示的样子 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;
在程序中动态给定显示的样子
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;
TNumericField(DataSet.Fields[I]).DisplayFormat := '#,##0.00'
劳驾给出这段代码的意思