功能按钮单数次点击进行合计，双数次点击取消合计，表格还原，这个怎么实现？以下是合计模式的代码（谢谢大神
） 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 = "{0} 小计"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "入库_供应商"
g.TotalOn = "入库_数量,出库_数量,库存数量"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
t.Subtotal()
Tables("出入库登记表").GrandTotal = False
End If
加好友 
发短信
Post By：2018/1/16 20:47:00 [只看该作者]
