DataColChanged事件:
if e.DataCol.IsNumeric then
Dim sum AS double
For Each dc As DataCol in e.DataTable.DataCols
sum = sum + e.datarow(dc.name)
Next
e.datarow("合计列") = sum
end if