【搞定】[请求]急!如何用代码对已经分组的数据进行统计汇总**

hdwt

我按照您的方法试了下 设置好DataGrid后将控件粘贴到记事本上 得到如下代码:
。。。。。。
  SummaryGroups = <
    item
      DefaultGroup = False
      SummaryItems = <
        item
          ColumnName = 'DataGrid1iSwitchNum'
          SummaryField = 'iSwitchNum'
          SummaryFormat = #24320#20851#24635#25968#37327':######'#20010
          SummaryType = cstSum
        end
        item
          ColumnName = 'DataGrid1iBDArresterNum'
          SummaryField = 'iBDArresterNum'
          SummaryFormat = #21464#21488#36991#38647#22120#24635#25968#37327':#####'#20010
          SummaryType = cstSum
        end
        item
          ColumnName = 'DataGrid1fCost'
          SummaryField = 'fCost'
          SummaryFormat = #21407#20540#20849':########'#19975#20803
          SummaryType = cstSum
        end
        item
          ColumnName = 'DataGrid1fTLLossValue'
          SummaryField = 'fTLLossValue'
          SummaryFormat = #29702#35770#32447#25439#20540#20849':###########'
          SummaryType = cstSum
        end>
      Name = 'DataGrid1SummaryGroup2'
    end>
  SummarySeparator = ', '
。。。。。。
  object DataGrid1fTLLossValue: TDataGridColumn
    BandIndex = 0
    RowIndex = 0
    ColumnDef.FieldName = 'fTLLossValue'
    ColumnDef.SummaryType = cstSum
    ColumnDef.SummaryField = 'fTLLossValue'
    ColumnDef.SummaryFormat = #29702#35770#32447#25439#20540#20849':###########'
    ColumnDef.SummaryFooterType = cstSum
    ColumnDef.SummaryFooterField = 'fTLLossValue'
    ColumnDef.SummaryFooterFormat = #20849':###########'
  end
。。。。。。
请问我要想在代码中实现设置好这么个汇总分组，再指定给字段，怎么样去做呢？

我代码是这样写的
   DataGrid1.SummaryGroups.Items.SummaryItems.Items.ColumnName := 'DataGrid1iSwitchNum';
      DataGrid1.SummaryGroups.Items.SummaryItems.Items.SummaryField := 'iSwitchNum';
      DataGrid1.SummaryGroups.Items.SummaryItems.Items.SummaryFormat := #24320#20851#24635#25968#37327':######'#20010;
      DataGrid1.SummaryGroups.Items.SummaryItems.Items.SummaryType := cstSum;
是没法编译通过的，提示如下的错误：
[错误]Biz:\PDSCGLXT\YWGN\SBTZGL\PDSBZHCX\PDSBZHCXGN.FUNC.DIR\PDSBZHCXCT.FORM.PAS(640, 31): Not enough actual parameters
[错误]Biz:\PDSCGLXT\YWGN\SBTZGL\PDSBZHCX\PDSBZHCXGN.FUNC.DIR\PDSBZHCXCT.FORM.PAS(641, 31): Not enough actual parameters
[错误]Biz:\PDSCGLXT\YWGN\SBTZGL\PDSBZHCX\PDSBZHCXGN.FUNC.DIR\PDSBZHCXCT.FORM.PAS(642, 31): Not enough actual parameters
[错误]Biz:\PDSCGLXT\YWGN\SBTZGL\PDSBZHCX\PDSBZHCXGN.FUNC.DIR\PDSBZHCXCT.FORM.PAS(643, 71): Undeclared identifier "cstSum"
请您代码指点下 谢谢

atiger

http://bbs.justep.com/forum.php?mod=viewthread&tid=7795

或者以“SummaryGroups”在bbs搜索

lixy

楼主请回馈

hdwt

最初由 twins_tony 发布
[B]相关代码如下：
DataGrid1.ColumnByName('DataGrid1FieldA').GroupIndex := 0;//对FieldA分组，取消分组GroupIndex取值 -1
DataGrid1.SummaryGroups.Add;
DataGrid1.SummaryGroups[0].DefaultGroup := True;//设置默认统计组
DataGrid1.SummaryGroups[0].SummaryItems.Add;
DataGrid1.SummaryGroups[0].SummaryItems[0].ColumnName := 'DataGrid1Field1';//对Field1统计并显示在组尾
DataGrid1.SummaryGroups[0].SummaryItems[0].SummaryType := TSummaryType.cstSum;//设置统计类型
DataGrid1.SummaryGroups[0].SummaryItems[0].SummaryField := 'Field1';//设置统计字段
DataGrid1.SummaryGroups[0].SummaryItems[0].SummaryFormat := '(合计值=0.00)';//设置统计显示格式[/B]

现在功能基本已经实现，只是我不明白，为什么我设置DataGrid1.ColumnByName('DataGrid1FieldA').GroupIndex := 0 时 会运行错误Access violation at address 023D7C17 in module 'CLRModel.bpl' Read of address 000000C4 类型:EAccessViolation 这样的内存错误。。？

atiger

你有 DataGrid1FieldA  这个列名吗?

hdwt

有的
如果我在数据集中这个字段已经设定了对该字段分组
是不是就可以省去代码中DataGrid1.ColumnByName('DataGrid1FieldA').GroupIndex := 0;

lixy

可以省去

atiger

呵呵，这个你试一下就知道

hdwt

谢谢 这个问题基本搞定了

atiger

ok
结贴了，有问题重新开吧