帮忙给一个循环的写法

表格式如下
     A   B  C   D  ......
1    1   0   2   3 ......
2    5   6  0    7 ......
3    .....
.......


给这个表最后一行加一个合计行。想用一个循环计算出来。
列是动态的，
我是这样写的循环，但是合计不正确。
Dim dt As New DataTable
   Dim a, b As Integer  'a是行，b是列
   Dim dr As DataRow
   dr = dt.NewRow
 For b = 2 To dt.Columns.Count - 1   ‘从2列开始，因为前两列不需要合计
            For a = 0 To dt.Rows.Count - 1
                If a = 0 Then
                    dr(dt.Columns(b).ColumnName.Trim) = dt.Rows(a).Item(b) + 0  ’如何是第一行，就是本身
                Else
                    dr(dt.Columns(b).ColumnName.Trim) = dt.Rows(a).Item(b) + dt.Rows(a - 1).Item(b)  ‘当前行加上一行
                End If

            Next
         
        Next

[ 本帖最后由 binghe6610 于 2010-10-18 14:28 编辑 ]