@@@@@TAggregateField怎么使用?@@@@@ 我看了帮助,怎么设置也不能把统计数据在DBEdit中显示出来,各位请帮忙 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 给你一个例子:procedure TdmData.UpdateFieldFormats(DataSet: TDataSet);const defFloatFormat: string = ',0.00'; defDateFormat: string = 'yyyy-mm-dd'; defTimeFormat: string = 'hh:mm:ss'; defDateTimeFormat: string = 'yyyy-mm-dd hh:mm:ss';var I: Integer;begin for I := 0 to DataSet.FieldCount - 1 do begin case DataSet.Fields[I].DataType of ftFloat, ftCurrency, ftBCD: begin TNumericField(DataSet.Fields[I]).DisplayFormat := defFloatFormat; TNumericField(DataSet.Fields[I]).EditFormat := '#.##'; end; ftDate: TDateTimeField(DataSet.Fields[I]).DisplayFormat := defDateFormat; ftTime: TDateTimeField(DataSet.Fields[I]).DisplayFormat := defTimeFormat; ftDateTime: TDateTimeField(DataSet.Fields[I]).DisplayFormat := defDateTimeFormat; end; end;end; 将ClientDataSet的AggregatesActive属性设置为"True"将TAggregateField的Active属性设置为"True"OK! 怎么样将数组中的内容赋给checklistbox 亲爱的朋友们 帮我解决一下下面的代码 在线等答案!!!!!!急急急......立马给分. 不好意思,我问一首Beyond 歌名 怎么使打印机的打印头,每次都跑完整个打印纸的宽度!!! 50分求delphi6 Personal Edition序列号,试过z9j8-pum4n…但不是,在线等 数据库控制访问的问题!!请帮忙。 TObject中的Destroy为什么声明为虚拟方法 请问怎么才能EXCEL中的数据存到SQL数据库中? 如何检测A驱动器是否准备好? 着急问题 关于字符串的问题!
const
defFloatFormat: string = ',0.00';
defDateFormat: string = 'yyyy-mm-dd';
defTimeFormat: string = 'hh:mm:ss';
defDateTimeFormat: string = 'yyyy-mm-dd hh:mm:ss';
var
I: Integer;
begin
for I := 0 to DataSet.FieldCount - 1 do begin
case DataSet.Fields[I].DataType of
ftFloat, ftCurrency, ftBCD:
begin
TNumericField(DataSet.Fields[I]).DisplayFormat := defFloatFormat;
TNumericField(DataSet.Fields[I]).EditFormat := '#.##';
end;
ftDate: TDateTimeField(DataSet.Fields[I]).DisplayFormat := defDateFormat;
ftTime: TDateTimeField(DataSet.Fields[I]).DisplayFormat := defTimeFormat;
ftDateTime: TDateTimeField(DataSet.Fields[I]).DisplayFormat := defDateTimeFormat;
end;
end;
end;
将TAggregateField的Active属性设置为"True"
OK!