主题：新手求助，列不固定，如何求各列合计？

if e.DataCol.IsNumeric then

    Dim sum AS double

    For Each dc As DataCol  in e.DataTable.DataCols

       if dc.Name <> "合计列" then

           sum = sum + e.datarow(dc.name)

end if

    Next

    e.datarow("合计列") = sum

end if