主题：如何做到将正数、负数分别相加

循环每一列，然后判断是否小于0，然后累加，如

Dim ary() As String = {"第二列", "第三列", "第四列"}
If array.Indexof(ary, e.DataCol.name) >= 0 Then
    Dim sum1 As Double = 0
    Dim sum2 As Double = 0
    For Each c As String In ary
        If e.DataRow(c) < 0 Then
            sum1 += e.DataRow(c)
        Else
            sum2 += e.DataRow(c)
        End If
    Next
    e.DataRow("第九列") = sum1
    e.DataRow("第十列") = sum2
End If