Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共6 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:新版问题:“设置汇总模式”自动生成的代码不能引用

1楼
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编辑过]
2楼
狐狸爸爸 发表于:2010/3/31 15:33:00
可能和这个是同一个问题:

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

正在处理
3楼
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
4楼
mr725 发表于:2010/4/1 10:33:00
行数多时,一直没有办法让最下面的汇总行显示在可见行中,要拉下滚动条 或 向下的按钮。
最好能用.position定位到汇总行 ···
5楼
liuruihua 发表于:2010/4/1 15:04:00
用户已锁定!
6楼
程兴刚 发表于:2010/4/1 15:13:00
以下是引用mr725在2010-4-1 10:33:00的发言:
行数多时,一直没有办法让最下面的汇总行显示在可见行中,要拉下滚动条 或 向下的按钮。
最好能用.position定位到汇总行 ···


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

共6 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.