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