将按钮代码改成:
Dim g As New CrossTableBuilder("课时统计", DataTables("课时名单")) g.HGroups.AddDef("姓名") g.VGroups.AddDef("性质") g.Totals.AddDef("计分", "计分") g.OrderByTotal = True g.VerticalTotal = True g.Build() Tables("课时统计").Cols("crsz5").Move(1) Tables("课时统计").Cols("crsz2").Move(2) MainTable = Tables("课时统计")
|