红色代码多余。
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