Dim g As New CrossTableBuilder("统计表1", DataTables("销售明细"), “日期 >= #01/01/2017#")
g.HGroups.AddDef("产品")
g.VGroups.AddDef("日期", "{0}月")g.VGroups.AddDef("库存","库存|非库存")
g.Totals.AddDef("金额", "金额")
g.Totals.AddDef("净重", "净重")
g.Filter = "日期 >= #01/01/2017#"
Tables("销售统计_Table1").DataSource = g.BuildDataSource()
具体上传实例测试