- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]表的汇总模式切换 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126375)
-- 发布时间：2018/10/19 16:29:00
-- [求助]表的汇总模式切换
我在制作一个CLICK按钮，写入汇总代码后。测试 了一下，表中成功显示出了分组统计信息。怎么让表回到最初的状态？
-- 发布时间：2018/10/19 16:35:00
--
写了什么代码？贴出来
-- 发布时间：2018/10/19 16:39: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.Count
g.GroupOn = "来电时间"
g.TotalOn = "来电内容"
g.Caption = "{0}月 接单小计"
g.DateGroup = DateGroupEnum.Month
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "来电时间"
g.TotalOn = "是否解决"
g.Caption = "{0}月 处理完成小计"
g.DateGroup = DateGroupEnum.Month
t.SubtotalGroups.Add(g)
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Count
g.GroupOn = "来电时间"
g.TotalOn = "来电内容"
g.Caption = "{0}年 接单统计"
g.DateGroup = DateGroupEnum.Year
t.SubtotalGroups.Add(g)
g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "来电时间"
g.TotalOn = "是否解决"
g.Caption = "{0}年 处理完成统计"
g.DateGroup = DateGroupEnum.Year
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Count
g.GroupOn = "*"
g.TotalOn = "来电内容"
g.Caption = "接单总计"
t.SubtotalGroups.Add(g)
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "是否解决"
g.Caption = "处理完成总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
-- 发布时间：2018/10/19 16:41:00
--
清除分组
Dim t As Table = Tables("用户管理")t.SubtotalGroups.Clear()
-- 发布时间：2018/10/19 16:42:00
--
有可以写一个代码，就是切换汇总模式的代码？怎么写求助为谢谢。
-- 发布时间：2018/10/19 16:43:00
--
，谢谢
-- 发布时间：2018/10/19 16:51:00
--
好像不管用呢？还是不能回到汇总前的状态
-- 发布时间：2018/10/19 16:56:00
--
截图或者上传实例说明汇总前是什么状态
-- 发布时间：2018/10/19 17:05:00
--
汇总后，我可以以开发者的身份切换汇总模式，但是发布后，需要做一个让其回到汇总前的状态。
此主题相关图片如下：汇总前.png
此主题相关图片如下：汇总后.png
-- 发布时间：2018/10/19 17:12:00
--
调用4楼的代码后是什么状态？