以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  交叉统计行、列排序问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=78258)

--  作者:HJG_HB950207
--  发布时间:2015/12/5 11:25:00
--  交叉统计行、列排序问题
请教:

如下是交叉统计代码:
Dim g As New CrossTableBuilder("用工形式", DataTables("职工一览表"))
g.HGroups.AddDef("科室")
g.VGroups.AddDef("用工形式")
g.VGroups.AddDef("性别")
g.Totals.AddDef("性别", AggregateEnum.Count, "性别")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Subtotal = True
g.FromServer = True
g.Build()
MainTable = Tables("用工形式")
假如职工一览表中 科室列有对应的科室编号
                       用工形式也有对应的序号
如何使交叉统计的表的行按科室编号排(而不是按拼音第一个字母);列按用工形式的序号排。
谢谢!


--  作者:Hyphen
--  发布时间:2015/12/5 12:15:00
--  
增加科室编号和用工形式序号列到统计表,生成后再隐藏科室编号和用工形式序号

Dim g As New CrossTableBuilder("用工形式", DataTables("职工一览表"))
g.HGroups.AddDef("科室编号")
g.HGroups.AddDef("科室")
g.VGroups.AddDef("用工形式序号")
g.VGroups.AddDef("用工形式")
g.VGroups.AddDef("性别")
g.Totals.AddDef("性别", AggregateEnum.Count, "性别")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Subtotal = True
g.FromServer = True
g.Build()
MainTable = Tables("用工形式")

Tables("用工形式").Cols("科室编号").Visible = False
Tables("用工形式").grid.Rows(0).Visible = False