主题：在小计或累计 库存数量列的结果后如何也能同时小计或累计出库存金额列的结果

Dim Sum1 As Integer
Dim Sum2 As Double
For i As Integer = 0 To CurrentTable.Rows.Count(True) - 1
    Dim r As Row = CurrentTable.Rows(i,True)
    If r.IsGroup
        If r("日期").EndsWith("小计") Then
            sum1 = sum1 + r("入库数量")- r("出库数量")
            sum2 = sum2 + r("入库金额")- r("出库金额")
        End If
        r("库存数量") = sum1
        r("库存金额") = sum1
    End If
Next