- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 合计模式求助 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=113489)
-- 发布时间：2018/1/16 20:47:00
-- 合计模式求助
功能按钮单数次点击进行合计，双数次点击取消合计，表格还原，这个怎么实现？以下是合计模式的代码（谢谢大神
）
）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
-- 发布时间：2018/1/16 21:41:00
--
If e.sender.text = "合计"
e.sender.text = "取消合计"
原来合计的代码
Else
Dim t As Table = Tables("出入库登记表")
t.ClearSubtotal
e.sender.text = "合计"
End If
-- 发布时间：2018/1/23 8:35:00
--
出现错误：“sender”不是“RibbonButtonEventArgs”的成员
错误代码：If e.sender.text= "合计"
-- 发布时间：2018/1/23 8:43:00
--
e.Sender.Text
改成
e.Button.Text
-- 发布时间：2018/1/23 9:25:00
--
已解决，非常感谢！