自己做个按钮,代码为:
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
[此贴子已经被作者于2011-6-26 14:10:50编辑过]