主题：[原创]汇总行数值为所有子行的乘积，代码怎么写？

参考代码

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.Caption = "汇总率总计"
t.SubtotalGroups.Add(g)

t.Subtotal()

Dim sum As Double = 1
For i As Integer = 0 To t.Rows.Count(True)-1
    Dim r As Row = t.Rows(i, True)
    If r.IsGroup Then
        r("执行率") = sum
    Else
        sum = sum * iif(r.IsNull("执行率"), 1, r("执行率"))
    End If
Next