以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于汇总模式下的编辑  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=94081)
--  作者：js4222
--  发布时间：2016/12/14 21:16: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}月 小计"
g.DateGroup = DateGroupEnum.Month
t.SubtotalGroups.Add(g)

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "姓名"
g.TotalOn = "金额"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

t.Subtotal()
帮助里说汇总模式是临时表，是只读的，无法编辑的，为什么代码写的汇总模式竟然可以编辑
而且如果编辑了，每次都会有一行跟着变换姓名，好乱。一没有注意就汇总模式下编辑了

帮我看看代码哪里出问题了
[此贴子已经被作者于2016/12/14 21:16:43编辑过]
--  作者：有点蓝
--  发布时间：2016/12/14 21:32:00
--  
测试没有问题，上例子看看
--  作者：js4222
--  发布时间：2016/12/15 13:57:00
--  回复：（有点蓝）测试没有问题，上例子看看
我的是表无法编辑，双击打开新增窗口。
在汇总模式下，双击也能打开窗口，窗口上就能修改图片点击可在新窗口打开查看。
如何设置窗口在汇总模式下无法编辑修改
--  作者：有点色
--  发布时间：2016/12/15 14:36:00
--  
以下是引用js4222在2016/12/15 13:57:00的发言：
 
如何设置窗口在汇总模式下无法编辑修改

 

判断一下不就好了？

 

If Tables("表A").IsSubtotal then

    \'写你要写的代码

End If