主题：[求助]

表单击：

Dim sum As Double
For i As Integer = 0 To e.Table.Rows.Count - 1
    sum = sum + e.Table.Rows(i)("A列")
    e.Table.Rows(i)("B列") = sum
Next

弄个按钮，单击：

Dim sum As Double
For i As Integer = 0 To CurrentTable.Rows.Count - 1
    sum = sum + CurrentTable.Rows(i)("A列")
    CurrentTable.Rows(i)("B列") = sum
Next