Foxtable(狐表) → 用户栏目 → 专家坐堂 → 合计模式求助


  共有2725人关注过本帖树形打印复制链接

主题：合计模式求助
帅哥哟，离线，有人找我吗？
挡不住的乐事
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：29 积分：279 威望：0 精华：0 注册：2017/1/5 10:07:00 		合计模式求助  发帖心情 Post By：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 
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：113755 积分：579342 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
挡不住的乐事
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：29 积分：279 威望：0 精华：0 注册：2017/1/5 10:07:00 		  发帖心情 Post By：2018/1/23 8:35:00 [只看该作者]

出现错误：“sender”不是“RibbonButtonEventArgs”的成员
错误代码：If e.sender.text= "合计"
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/23 8:43:00 [只看该作者]

e.Sender.Text

 

改成

 

e.Button.Text
 回到顶部
帅哥哟，离线，有人找我吗？
挡不住的乐事
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：29 积分：279 威望：0 精华：0 注册：2017/1/5 10:07:00 		  发帖心情 Post By：2018/1/23 9:25:00 [只看该作者]

已解决，非常感谢！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询