主题：单元格计算问题

Dim t As Table = Tables("表A")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True
t.Filter = "第一列 is not null"
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Count
g.GroupOn = "第一列"
g.TotalOn = "第二列"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

t.Subtotal()

Dim sum As Double = 0
Dim min As Double = 999
Dim flag = True

For i As Integer = 0 To t.Rows.Count(True) - 1
    Dim r As Row = t.Rows(i, True)
    If r.IsGroup Then
        If flag Then
            r("第二列") = sum
        Else
            r("第二列") = min
        End If
        sum = 0
        min = 999
        flag = True
    Else
        sum += val(r("第十列")) * val(r("第十一列"))
        If val(r("第八列")) < min Then
            min = val(r("第八列"))
        End If
        If flag Then
            If r("第九列") <> "正常状态" Then
                flag = False
            End If
        End If
       
    End If
Next

汇总模式是不能编辑数据的，你切换成正常模式，再新增和编辑