增加科室编号和用工形式序号列到统计表,生成后再隐藏科室编号和用工形式序号
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