此主题相关图片如下：qq图片20160103102530.png

如上表（员工工资 yggz），要得到一个分组统计表，分组列依次是日期的年、月和部门，统计列是应发工资。

代码如下：

Dim gtb As New GroupTableBuilder("年月统计",DataTables("yggz"))
gtb.Groups.AddDef("rq",DateGroupEnum.Year,"年")
gtb.Groups.AddDef("rq","月")
gtb.Groups.AddDef("bm","部门")
gtb.Totals.AddDef("yfgg")
gtb.Build
MainTable = Tables("年月统计")

结果如下：

此主题相关图片如下：qq图片20160103102641.png

部门一共有五个（前厅 餐厅 后厨 客房 后勤）想要的结果是月份相同的情况下，按五个部门排序，请老师指点！即如下图：

问题已解决，对分组统计表进行排序即可。

Dim gtb As New GroupTableBuilder("年月统计",DataTables("yggz"))
gtb.Groups.AddDef("rq",DateGroupEnum.Year,"年")
gtb.Groups.AddDef("rq","月")
gtb.Groups.AddDef("bm","部门")
gtb.Totals.AddDef("yfgg")
gtb.Build
Tables("年月统计").Sort = "年,月,部门"
MainTable = Tables("年月统计")