主题：同表数据引用问题

Dim t As Table = Tables("案卷目录")
t.Sort = "_SortKey"
For i As Integer = 0 To t.Rows.Count - 1
    Dim sum As Integer = 0
    For j As Integer = 0 To i

        sum + = t.Rows(j)("页数")
    Next
    t.Rows(i)("合计页") = sum
Next