表格式如下
     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 编辑 ]

自己终于搞定了。贴出我的代码，供大家分享吧
 Dim hang As Integer

        For b = 2 To dt.Columns.Count - 1
            hang = 0
            For a = 0 To dt.Rows.Count - 1

                hang = dt.Rows(a).Item(b) + hang


            Next
            dr(dt.Columns(b).ColumnName.Trim) = hang
        Next

关注下

直接吧DataTable放到GridView中，直接获取GridViewRow[index]，这样合计不是更好

问题是datatable是通过数据源填充的，而且要绑定到datagridview。所以，循环加一个合计行比较可行。