老师,我在窗口的afterload中设置如下代码:打开窗口的时候都实现了,可是鼠标点击到窗口表(绑定到关联表)的任何一个单元格,汇总就失效了,帮我看看吧?谢谢!
With Tables("申请单.入库单")
.MergeMode = MergeModeEnum.Standard '标准合并模式
.MergeCols.Clear() '清除原来的合并列
.MergeCols.Add("入库单号")
.MergeCols.Add("入库日期")
.MergeCols.Add("工程名称") '加入要合并的列
.AllowMerge = True '启用合并模式
'清除分组
Dim g As Subtotalgroup
.SubtotalGroups.Clear()
'定义入库单号分组
g = New Subtotalgroup '定义一个新的分组
g.Aggregate = AggregateEnum.Sum '统计类型为求和
g.GroupOn = "入库单号" '分组列为客户
g.TotalOn = "不含税金额,含税金额" '统计数量和金额列
g.Caption = "{0} 小计" '设置标题
.SubtotalGroups.Add(g) '加到分组集合中
'定义总计分组
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*" '注意总计分组用符号*表示.
g.TotalOn = "不含税金额,含税金额"
g.Caption = "总计"
.SubtotalGroups.Add(g)
.Subtotal() '生成汇总模式
End With
加好友 
发短信
Post By：2018/11/27 13:56:00 [只看该作者]
