Cxgrid获取分组小计值

最近有个项目用到比较复杂的统计，开始接触DEV，Dev下有个强大的表格那就是Cxgrid了。

项目上用到对分组小计后的值获取。

研究了半天，代码如下：

 

var
  i, j: Integer;
  ASummary: TcxDataSummary;
begin
  inherited;
  j := 0;
  for i := 0 to cxGrid1DBTableView1.DataController.RowCount - 1 do
  begin
    if cxGrid1DBTableView1.DataController.GetRowInfo(i).Level = 0 then
    Inc(j);
  end;
  ASummary := cxGrid1DBTableView1.DataController.Summary.
    DefaultGroupSummaryItems[0].SummaryItems.Summary;
  for i := 0 to j - 1 do
  begin
    ShowMessage('小计:'+VarToStr(ASummary.GroupSummaryValues[i, 0]));
  end;