红色代码多余。
Dim g As New CrossTableBuilder("分类流水汇总统计表", DataTables("现金账"))
g.HGroups.AddDef("制单日期", DateGroupEnum.Year, "年")
g.HGroups.AddDef("制单日期", "月")
g.VGroups.AddDef("币种")
g.Totals.AddDef("收入", "收入")
g.Totals.AddDef("支出", "支出")
g.OrderByTotal = True
g.VerticalTotal = True
g.Subtotal = True
g.FromServer = True
'g.Build()
Tables("现金账_table2").DataSource =g.BuildDataSource