把合计去掉
Dim t As Table = Tables("表A")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear() g = New Subtotalgroup
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 & "%"
加好友 
发短信
Post By：2019/9/29 20:33:00 [显示全部帖子]
