主题：[求助]关于 总计 的问题

此主题相关图片如下：xxx.jpg

我被老板要求做到如下要求：打开该窗口后，下面的表中就有总计，统计出收款金额。如果单击“新增”后，总计 这一行自动刷新数据（而且总计默认一直在最后行）。同时不能影响删除这些按钮的正常功能。。。。

首先，我觉得很奇怪，因为我从来没用这么去设计过，一直以来我都是通过EXCEL报表，来实现 总计 的。

其次，我试过一个方法，但是新增记录后，不能录入数据。代码如下：

'Dim t As Table = Tables("收款表")
'Dim g As Subtotalgroup
't.SubtotalGroups.Clear()
't.GroupAboveData = False
't.TreeVisible = False
't.SpillNode = True

'g = New Subtotalgroup
'g.Aggregate = AggregateEnum.Sum
'g.GroupOn = "*"
'g.TotalOn = "收款金额"
'g.Caption = "总计"
't.SubtotalGroups.Add(g)

't.Subtotal()

每次新增记录的时候设置一下.Filter=""  也就是退出汇总模式.新增完毕再执行汇总模式代码.

谢谢