主题：如何用代码增加合计列

最后面加上：

 

dt.DataCols.Add("合计",Gettype(Double))
Dim sum As Double
For Each dr As DataRow In dt.DataRows
    sum = 0
    For Each dc As DataCol In dt.DataCols
         If dc.IsNumeric Then
             sum = dr(dc.name) + sum
         End If  
    Next
    dr("合计") = sum
Next

Dim tbl As DataTable = DataTables("处理数量")

tbl.DataCols.Add("合计",Gettype(Double))
Dim sum As Double
For Each dr As DataRow In tbl.DataRows
    sum = 0
    For Each dc As DataCol In tbl.DataCols
        If dc.IsNumeric Then
            sum = dr(dc.name) + sum
        End If
    Next
    dr("合计") = sum
Next

既然前面定义了，那就不要定义变量sum，或者换个名字都行。

 

Dim tbl As DataTable = DataTables("处理数量")

tbl.DataCols.Add("合计",Gettype(Double))
For Each dr As DataRow In tbl.DataRows
    sum = 0
    For Each dc As DataCol In tbl.DataCols
        If dc.IsNumeric Then
             sum = dr(dc.name) + sum
       End If
    Next
     dr("合计") = sum
Next

我的代码不会有这个错误提示，看看你自己的代码，搞不定传表上来。

没有数据，无法测试。