- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]合计行计算 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=141470)
-- 发布时间：2019/9/29 20:08:00
-- [求助]合计行计算
求助，如何对合计行进行计算？如下图：
此主题相关图片如下：合计行.jpg
在DataColChanged里写了这段程序，不起作用：
\'找出合计行
Dim r As Row
For i As Integer = 0 To Tables("遏制步骤").Rows.Count(True) - 1
r = Tables("遏制步骤").Rows(i,True)
If r.IsGroup
r("进度") = r("实控数") / r("应控数") * 100 & "%"
End If
Exit For
Next
\'找出合计行
Dim r As Row
For i As Integer = 0 To Tables("遏制步骤").Rows.Count(True) - 1
r = Tables("遏制步骤").Rows(i,True)
If r.IsGroup
r("进度") = r("实控数") / r("应控数") * 100 & "%"
End If
Exit For
Next
-- 发布时间：2019/9/29 20:33:00
--
把合计去掉
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.Caption = "合计"
t.SubtotalGroups.Add(g)
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "*"
g.Caption = "合计"
t.SubtotalGroups.Add(g)
dim a = Tables("表A").Compute("Sum(应控数)")
dim b = Tables("表A").Compute("Sum(实控数)")
dim cnt = Tables("表A").Rows.Count(True) - 1
dim r as row = Tables("表A").Rows(cnt,True)
r("应控数") = a
r("实控数") = b
if a <> 0 then r("进度") = b / a * 100 & "%"
-- 发布时间：2019/9/30 9:28:00
--
谢谢！