可以将VerticalTotal属性设置为True,就会自动加上合计行:
Dim b As New CrossTableBuilder("统计表1",DataTables("订单"))
b.HGroups.AddDef("客户") '添加客户列用于水平分组
b.VGroups.AddDef("日期",DateGroupEnum.Year,"{0}年") '添加日期列用于垂直分组,按年分组
b.VGroups.AddDef("日期","{0}月") '添加日期列用于垂直分组,按月分组
b.Totals.AddDef("数量") '添加数量列用于统计
b.VerticalTotal= True '垂直汇总
b.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表