主题：交叉统计

下段代码放到你上面代码倒数第二行便可,其实就是汇总模式的代码

Dim t As Table = Tables("统计表1")
Dim g1 As SubtotalGroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False

g1 = New SubtotalGroup
g1.Aggregate = AggregateEnum.Sum
g1.GroupOn = "*"
g1.TotalOn = "1月,2月,3月,4月,...." '以此类推
g1.Caption = "合计"
t.SubtotalGroups.Add(g1)
t.Subtotal()

为了方便,你也可以先生成统计表1,然后再做汇总模式,查看代码,将汇总代码复制下来便可以了

此统计表本身就是临时表,如何适时自动?除非你做一个固定的表