Dim g As New GroupTableBuilder("统计表", DataTables("课程信息")) g.Groups.AddDef("培训时间", DateGroupEnum.Year, "年") g.Totals.AddDef("实际人数") g.Totals.AddDef("人天统计") g.Filter = "[培训时间] >= #4/1/2012# and [培训时间] <= #3/31/2013#" g.Build() MainTable = Tables("统计表")