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

求执行率的。

假设某个产品一共10个工序，一个操作工序一个执行率（百分比表示），汇总行要求得产品的执行率= 10个工序执行率的乘积。请教汇总代码怎么写。

管理项目1中的参考数据，表A增加汇总行，效果如附件“执行率.png”，执行率总计=各工序执行率的乘积，即

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

参考代码

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

完全OK，万分感谢！