Dim g As New CrossTableBuilder("统计表1", DataTables("订单"))g.HGroups.AddDef("产品")g.VGroups.AddDef("日期", DateGroupEnum.Year, "{0}年")g.VGroups.AddDef("日期", "{0}月")g.Totals.AddDef("数量", "数量")g.FromServer = True '设置为True,统计后台数据g.Build()MainTable = Tables("统计表1")
得到的统计结果为: