直接点击“设置汇总模式”的“应用”确定按纽,汇总功能生效。但:直接使用其“查看代码”按纽中的代码,则无法生成汇总结果。这是直接生成的代码,以前可在内部函数中引用,现在引用无效:
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编辑过]