代码一
Dim g As New CrossTableBuilder("统计表1", DataTables("汇总窗口_Table1"))
g.HGroups.AddDef("供方")
g.VGroups.AddDef("采购日期", DateGroupEnum.Year, "{0}年_数量")
g.Totals.AddDef("数量", "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.HorizontalProportion = True
g.VerticalProportion = True
Tables("汇总窗口_Table2").DataSource = g.BuildDataSource()
代码二
Dim g As New CrossTableBuilder("统计表2", DataTables("汇总窗口_Table1"))
g.HGroups.AddDef("供方")
g.VGroups.AddDef("采购日期", DateGroupEnum.Year, "{0}年_金额")
g.Totals.AddDef("金额", "金额")
g.HorizontalTotal = True
g.VerticalTotal = True
g.HorizontalProportion = True
g.VerticalProportion = True
Tables("汇总窗口_Table2").DataSource = g.BuildDataSource() '
如何将数量和金额合并一起统计？
Dim g As New CrossTableBuilder("统计表2", DataTables("汇总窗口_Table1"))
g.HGroups.AddDef("供方")
g.VGroups.AddDef("采购日期", DateGroupEnum.Year)
g.Totals.AddDef("数量", "数量")g.Totals.AddDef("金额", "金额")
……