测试通过:
Dim b As New SQLGroupTableBuilder("统计表1","订单")b.Groups.AddExp("年月","Year(日期) & ""-"" & Month(日期)")b.Totals.AddDef("数量")b.Totals.AddExp("金额","数量 * 单价 * (1 - 折扣)")b.Build MainTable = Tables("统计表1")