以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  【求助】关于分组统计的合计问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98319)

--  作者:10059
--  发布时间:2017/3/28 9:50:00
--  【求助】关于分组统计的合计问题
老师,我用下面的代码来分组统计,数据表有“部门”,“学历”,“性别”等几列,当我用“部门”,“学历”来分组统计时是正常的,但是如果用“性别”这列来分组统计时就不会出现“合计”,请问老师这该怎么改??

Dim i As Integer = Date.Today().month
Dim g As New GroupTableBuilder("月员工统计查询", DataTables("进厂员工花名册"))
Dim dd As new Date (Date.Today().year ,2,1)
For x As Integer = 1 To i
    g.Groups.AddDef("性别")
    g.Totals.AddDef("工号", AggregateEnum.Count,Date.Today().year & "_" & x & "月")
    g.Filter = "[员工状态] = \'在\' and [入职日期] < \'" & dd & "\'"
    dd = dd.addmonths(1)
    g.VerticalTotal = True
    g.build
Next
Tables("窗口1_table1").datasource = g.BuildDataSource
[此贴子已经被作者于2017/3/28 9:50:42编辑过]

--  作者:有点色
--  发布时间:2017/3/28 11:20:00
--  

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


--  作者:10059
--  发布时间:2017/3/28 11:59:00
--  
老师,还是不行哦,一样是用“性别”分组统计时没有“合计”的,其他列就可以
--  作者:有点色
--  发布时间:2017/3/28 12:42:00
--  
 例子上传上来测试下。
--  作者:有点色
--  发布时间:2017/3/28 12:43:00
--  

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

 

 具体上传实例测试下。