以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=84583)
--  作者：spaldingxu
--  发布时间：2016/5/5 11:15: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 = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()

 

Dim r As Row
For i As Integer = 0 To t.Rows.Count(True) - 1
    r = t.Rows(i,True)
    If r.IsGroup Then
        r("故障率") = r("进货检故障数") / r("进货检验总数")
    End If
Next

 

以上面的代码对表格中数据做出总计后，表中的数据就不能编辑了，有什么方法可以取消总计，然后继续编辑？
--  作者：大红袍
--  发布时间：2016/5/5 13:24:00
--  

方法一：

 

doubleClick事件

 

e.Table.StartEditing

 

 

方法二：做一个按钮取消汇总模式

 

Syscmd.Table.ToggleSubtotalMode()
--  作者：spaldingxu
--  发布时间：2016/5/6 9:27:00
--  
我在一个窗口做了3个表格，第二个方法如何分别取消统计？或者能不能将3个表一起取消统计？
--  作者：大红袍
--  发布时间：2016/5/6 9:30:00
--  

Tables("表A").Filter = Tables("表A").Filter

Tables("表B").Filter = Tables("表B").Filter
--  作者：spaldingxu
--  发布时间：2016/5/6 9:32:00
--  
万分感谢