直接点击“设置汇总模式”的“应用”确定按纽,汇总功能生效。但:直接使用其“查看代码”按纽中的代码,则无法生成汇总结果。这是直接生成的代码,以前可在内部函数中引用,现在引用无效:
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编辑过]
是的,要点击两次才可执行,前两天有人提过,这样可以:
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
行数多时,一直没有办法让最下面的汇总行显示在可见行中,要拉下滚动条 或 向下的按钮。
最好能用.position定位到汇总行 ···
以下是引用mr725在2010-4-1 10:33:00的发言:
行数多时,一直没有办法让最下面的汇总行显示在可见行中,要拉下滚动条 或 向下的按钮。
最好能用.position定位到汇总行 ···
我不支持,这样会带来方方面面的麻烦和弊病(尤其是专业报表等等),汇总行可以用代码在状态栏显示,不管您如何滚动,都一直可见,不受影响!