直接用交叉统计就可以了,如:
Dim g As New CrossTableBuilder("统计表1", DataTables("销售表"), "[店面编号] = '8077'")g.HGroups.AddDef("店面编号")g.VGroups.AddDef("发货日期", "发货金额统计_{0}月")g.Totals.AddDef("发货金额", "发货金额")g.Filter = "[店面编号] = '8077'"g.Build()MainTable = Tables("统计表1")