Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
做个按钮吧:(先在命令窗口测试)
Tables("表A").Rows(Tables("表A").count(True) -1, True)("完成率") = Tables("表A").Compute("Sum(完成率)") /Tables("表A").count-1
篡改汇总模式的结果
有了上一节“关于汇总模式下的行”的知识,我们就可以轻松地“篡改”汇总模式的统计结果。
例如希望汇总模式的统计结果中,金额以“万元”为单位显示:
'首先要生成汇总模式
自己做个按钮,代码为:
Dim t As Table = Tables("表A")
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 = "总计"
t.SubtotalGroups.Add(g)
t.Subtotal()
Dim r As Row = Tables("表A").Rows(Tables("表A").count(True) -1, True)
r ("完成率") = r("完成数")/ r("任务数")
原理参考:
http://help.foxtable.com/topics/1911.htm
http://help.foxtable.com/topics/1964.htm