手工汇总吧：http://www.foxtable.com/webhelp/topics/3290.htmDim b As New CrossTableBuilder("统计表1", DataTables("订单"))
b.HGroups.AddDef("产品")
b.VGroups.AddDef("客户")
b.Totals.AddDef("数量", "数量")
b.HorizontalTotal=True
b.HorizontalProportion=True
b.Build()
With Tables("统计表1")
.SubtotalGroups.Clear() '清除原有的分组
Dim g As New Subtotalgroup '定义一个新的分组
g.GroupOn = "产品" '分组列为客户列
Dim s As String
For Each c As Col In Tables("统计表1").Cols
If c.IsNumeric Then
s = s & "," & c.Name
End If
Next
s = s.Trim(",")
g.TotalOn = s
.SubtotalGroups.Add(g) '加入刚刚定义的分组
g = New Subtotalgroup
g.GroupOn = "*"
g.TotalOn = s
.SubtotalGroups.Add(g)
.Subtotal() '生成汇总模式
End With
MainTable = Tables("统计表1")
加好友 
发短信
Post By：2020/10/11 21:04:00 [显示全部帖子]
