如题，先交叉统计后再进行汇总，得到如下图的结果

代码如下：

Dim b As New SQLCrossTableBuilder("产品出货统计","出库明细")
b.C \'指定数据源
b.AddTable("出库明细","出库单号","出库单","出库单号") \'添加统计表
b.HGroups.AddDef("产品编码") \'添加水平分组列
b.HGroups.AddDef("{出库明细}.品名") \'添加水平分组列
b.HGroups.AddDef("{出库明细}.规格") \'添加水平分组列
b.VGroups.AddDef("出库日期",DateGroupEnum.Year,"{0}年") \'添加日期列用于垂直分组,按年分组
b.VGroups.AddDef("出库日期","{0}月") \'添加日期列用于垂直分组,按月分组
b.Totals.AddDef("{出库明细}.数量") \'添加数量列用于统计
b.Build \'生成统计表

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:汇总模式统计.foxdb

谢谢，但是你发过来的，与我发上去的是一样的啊，我的意思是随着每个月入库月份的增加，不可能每次数量那里都人为的去改变代码，而是用一个通用的变量什么的。即下面这里

g.TotalOn = "数量_1,数量_2"

这样就自动了：

If DataTables.Contains("产品出货统计") \'如果存在产品出货统计表则删除
    DataTables.Delete("产品出货统计")
End If
Dim b As New SQLCrossTableBuilder("产品出货统计","出库明细")
b.AddTable("出库明细","出库单号","出库单","出库单号") \'添加统计表
b.HGroups.AddDef("产品编码") \'添加水平分组列
b.HGroups.AddDef("{出库明细}.品名") \'添加水平分组列
b.HGroups.AddDef("{出库明细}.规格") \'添加水平分组列
b.VGroups.AddDef("出库日期",DateGroupEnum.Year,"{0}年") \'添加日期列用于垂直分组,按年分组
b.VGroups.AddDef("出库日期","{0}月") \'添加日期列用于垂直分组,按月分组
b.Totals.AddDef("{出库明细}.数量") \'添加数量列用于统计
b.Build \'生成统计表
MainTable = Tables("产品出货统计") \'打开生成的统计表

Dim t As Table = Tables("产品出货统计")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "产品编码"

For Each c As col In Tables("产品出货统计").Cols
    If c.DataCol.IsNumeric Then
            g.TotalOn = g.TotalOn & "," & c.name
    End If
Next
g.TotalOn = g.Totalon.trim(",")

g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
t.Subtotal() \'生成汇总模式

老师误会我的意思了，那个是我自己现在知道的笨办法，其实先前的交叉统计得到表的数据如下，

现在就是想要再对它进行分组统计，因为交叉统计生成的月分会一直增加下去，但我不可能每增加一个月都去修改一下数量

那里的代码啊，要怎么修改数量那里为一个通用的变量就行。或者换一种方式达到这种效果就行。

谢谢狐爸，庞老师，回复这么快，每次我都没回复完就回帖过来了。这样就可以了。