勾选“显示详细信息”看是哪个事件出错,然后贴出完整代码
Case "班组结算"
Dim g As New CrossTableBuilder("出库统计", DataTables("出库"))
g.HGroups.AddDef("统计班组","班组")
g.VGroups.AddDef("统计日期", DateGroupEnum.Year, "{0}年")
g.VGroups.AddDef("统计日期", "{0}月")
g.Totals.AddDef("备件_属性", "备件属性")
g.Totals.AddDef("备件_总价", "总金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Decimals = 2
g.Subtotal = True
‘’g.Build()这句去掉
‘’MainTable = Tables("出库统计")这句去掉
Tables("出库结算汇总_Table1").DataSource = g.BuildDataSource()