以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  统计  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93875)
--  作者：刘林
--  发布时间：2016/12/9 9:30:00
--  统计
Dim g As New GroupTableBuilder("统计表1", DataTables("学生信息"))
g.Groups.AddDef("学校名称")
g.Groups.AddDef("班级")
g.Groups.AddDef("性别")
g.Totals.AddDef("学生姓名", AggregateEnum.Count,"学生人数")
g.Totals.AddDef("学生姓名", AggregateEnum.Count,"男")
g.FromServer = True
g.Build()
MainTable = Tables("统计表1")
Dim school As String = User.Group
Tables("统计表1").filter = "学校名称 = \'"& school &"\'"

老师，请问上面代码是将一个班的男，女纵向两行分别统计，我是想横向一列统计总数，一列统计该班男生数，一列统计该班女生数，请问怎么改。谢谢
--  作者：有点蓝
--  发布时间：2016/12/9 9:46:00
--  
用CrossTableBuilder
--  作者：刘林
--  发布时间：2016/12/9 11:31:00
--  
Dim dt1 As Table = Tables("学生人数统计_table1")
Dim g As New CrossTableBuilder("统计表1",DataTables("学生信息"))
g.hGroups.AddDef("学校名称")
g.hGroups.AddDef("班级")
g.vgroups.AddDef("性别")
g.Totals.AddDef("学生姓名", AggregateEnum.Count,"学生人数")
g.Totals.AddDef("性别", AggregateEnum.Count,"性别")
g.FromServer = True
g.Build()
MainTable = Tables("统计表2")
Dim school As String = User.Group
dt1.DataSource = g.BuildDataSource()
dt1.filter = "学校名称 = \'"& school &"\'"
我想用一列来统计每个班的人数，再分别统计男，女各一列，上面代码是将性别下分别统计人数，没有总人数列，我看了懂不起，请帮改下
--  作者：有点蓝
--  发布时间：2016/12/9 11:43:00
--  
Dim dt1 As Table = Tables("学生人数统计_table1")
Dim g As New CrossTableBuilder("统计表1",DataTables("学生信息"))
g.hGroups.AddDef("学校名称")
g.hGroups.AddDef("班级")
g.vgroups.AddDef("性别")
g.Totals.AddDef("学生姓名", AggregateEnum.Count,"学生人数")
g.HorizontalTotal = True
g.FromServer = True
g.Build()
MainTable = Tables("统计表2")
Dim school As String = User.Group
dt1.DataSource = g.BuildDataSource()
dt1.filter = "学校名称 = \'"& school &"\'"
[此贴子已经被作者于2016/12/9 11:43:10编辑过]
--  作者：刘林
--  发布时间：2016/12/9 12:42:00
--  
Dim dt1 As Table = Tables("学生人数统计_table1")
Dim g As New CrossTableBuilder("统计表1",DataTables("学生信息"))
g.hGroups.AddDef("学校名称")
g.hGroups.AddDef("班级")
g.vgroups.AddDef("性别")
g.vgroups.AddDef("就读方式")
g.Totals.AddDef("学生姓名", AggregateEnum.Count,"学生人数")
g.HorizontalTotal = True
g.FromServer = True
g.Build()
MainTable = Tables("统计表2")
Dim school As String = User.Group
dt1.DataSource = g.BuildDataSource()
dt1.filter = "学校名称 = \'"& school &"\'"
老师，我加了个就读方式统计，是想统计出该班走读和住读，结果是男女分类下又分走读，住读，如果按班统计走读，住读，男生，女生，总数5列分别是多少，怎么改？
--  作者：有点蓝
--  发布时间：2016/12/9 14:16:00
--  
分别生成2个统计表然后合并：http://www.foxtable.com/webhelp/scr/2305.htm