此主题相关图片如下：捕获.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了，