主题：[求助]合计行计算

求助，如何对合计行进行计算？如下图：

此主题相关图片如下：合计行.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