以文本方式查看主题

-  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=6412)
--  作者：abcdzabcdz
--  发布时间：2010/3/31 14:40:00
--  新版问题：“设置汇总模式”自动生成的代码不能引用
直接点击“设置汇总模式”的“应用”确定按纽，汇总功能生效。但：直接使用其“查看代码”按纽中的代码，则无法生成汇总结果。这是直接生成的代码，以前可在内部函数中引用，现在引用无效：

Dim t As Table = Tables("流水表")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False

g = New SubtotalGroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.TotalOn = "正课,辅导,补课,甘孜班_守班,甘孜班_补课,甘孜班_辅导,甘孜班_巡查"
g.Caption = "总计"
t.SubtotalGroups.Add(g)

t.Subtotal()

[此贴子已经被作者于2010-3-31 14:40:34编辑过]
--  作者：狐狸爸爸
--  发布时间：2010/3/31 15:33:00
--  
可能和这个是同一个问题：

http://www.foxtable.com/dispbbs.asp?boardid=2&id=6271

正在处理
--  作者：mr725
--  发布时间：2010/3/31 15:33:00
--  
是的，要点击两次才可执行，前两天有人提过，这样可以：
for i as integer = 0 to 1
    Dim t As Table = Tables("流水表")
    Dim g As SubtotalGroup
    t.SubtotalGroups.Clear()
    t.GroupAboveData = False
    t.TreeVisible = False
   
    g = New SubtotalGroup
    g.Aggregate = AggregateEnum.Sum
    g.GroupOn = "*"
    g.TotalOn = "正课,辅导,补课,甘孜班_守班,甘孜班_补课,甘孜班_辅导,甘孜班_巡查"
    g.Caption = "总计"
    t.SubtotalGroups.Add(g)
   
    t.Subtotal()   
next
--  作者：mr725
--  发布时间：2010/4/1 10:33:00
--  
行数多时，一直没有办法让最下面的汇总行显示在可见行中，要拉下滚动条 或 向下的按钮。
最好能用.position定位到汇总行 ···
--  作者：程兴刚
--  发布时间：2010/4/1 15:13:00
--  
以下是引用mr725在2010-4-1 10:33:00的发言：
行数多时，一直没有办法让最下面的汇总行显示在可见行中，要拉下滚动条 或 向下的按钮。
最好能用.position定位到汇总行 ···


我不支持，这样会带来方方面面的麻烦和弊病（尤其是专业报表等等），汇总行可以用代码在状态栏显示，不管您如何滚动，都一直可见，不受影响！