主题：多行统计问题求助？

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

点击浏览该文件:多项统计问题.table

多行统计问题求助？如图，如案例
此主题相关图片如下：qq截图20180903130746.jpg

蓝框里，统计行如黑色标记所示，还要加上求和，求代码指点！

Dim t As Table = Tables("窗口1_table1")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = True
t.TreeVisible = True
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Sum
g.GroupOn = "第三列"
g.TotalOn = "第五列,第七列"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)

t.Subtotal()

For i As Integer = 0 To t.Rows.count(True)-1
    Dim r As Row = t.Rows(i, True)
    If r.IsGroup Then
        Dim nr = t.Rows(i+1, True)
        r("第二列") = nr("第二列")
        r("第三列") = nr("第三列")
        r("第四列") = nr("第四列")
        r("第六列") = nr("第六列")
        r("第八列") = nr("第八列")
        r("第九列") = nr("第九列")
        r("第十列") = nr("第十列")
        r("备注") = nr("备注")
    End If
Next