g = new Subtotalgroupg.Aggregate = AggregateEnum.Sumg.GroupOn = "*"For Each cp As String In DataTables("产品").GetValues("产品") g.TotalOn &= cp & "_数量," & cp & "_金额,"Next
g.TotalOn &= "当月_总数量,当月_总金额"
g.Caption = "总计"rbb.SubtotalGroups.Add(g)