标题：汇总模式与合并模式连用出错

 
此主题相关图片如下：捕获.png

为何这里没有合并？是否是排序问题？如何解决？

Tables("库存报表_Table1").Sort = "成品描述,成品编码,un包装规格,有效期"
With Tables("库存报表_Table1")
    .MergeMode = MergeModeEnum.Standard '标准合并模式
    .MergeCols.Clear() '清除原来的合并列
    .MergeCols.Add("成品描述") '加入要合并的列
    .MergeCols.Add("成品编码")
    .MergeCols.Add("un包装规格")
   .MergeSort = "成品描述,成品编码,un包装规格,有效期" '设置合并模式下的排序方式

 
    .AllowMerge = True '启用合并模式
End With

Dim t As Table = Tables("库存报表_Table1")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
'定义客户分组
'g = New SubtotalGroup
'g.GroupOn = "成品编码" '分组列为客户列
'g.TotalOn = "结余" '对数量和金额进行统计
't.SubtotalGroups.Add(g)
''定义产品分组
g = New SubtotalGroup
g.GroupOn = "成品描述"
g.TotalOn = "结余"
t.SubtotalGroups.Add(g)
t.Subtotal() '生成汇总模式

 OK了，