@@@@@TAggregateField怎么使用?@@@@@

Question

我看了帮助,怎么设置也不能把统计数据在DBEdit中显示出来,各位请帮忙

Answer 1

给你一个例子：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;

Answer 2

将ClientDataSet的AggregatesActive属性设置为"True"
将TAggregateField的Active属性设置为"True"
OK!