主题：【求助】关于分组统计的合计问题

Dim i As Integer = Date.Today().month
Dim g As New GroupTableBuilder("月员工统计查询", DataTables("进厂员工花名册"))
Dim dd As new Date (Date.Today().year ,2,1)
g.Groups.AddDef("性别")
For x As Integer = 1 To i
    g.Totals.AddDef("工号", AggregateEnum.Count,Date.Today().year & "_" & x & "月")
Next
g.Filter = "[员工状态] = '在' and [入职日期] < '" & dd & "'"
dd = dd.addmonths(1)
g.VerticalTotal = True
Tables("窗口1_table1").datasource = g.BuildDataSource

 如果没有垂直统计，你可以再用一次汇总模式。

 具体上传实例测试下。