Select Case e.DataCol.Name
Case "第一列","第二列","第三列","第四列","第五列","第六列"
Dim a As Integer = 0
If e.DataRow.IsNull("第一列") OrElse e.DataRow("第一列") = 0 Then
e.DataRow("第一列") = Nothing
Else
a = 1
e.DataRow("第六列") = e.DataRow("第一列")
End If
If e.DataRow.IsNull("第二列") OrElse e.DataRow("第二列") = 0 Then
e.DataRow("第二列") = Nothing
Else
a = 2
e.DataRow("第六列") = e.DataRow("第六列") + e.DataRow("第二列")
End If
If e.DataRow.IsNull("第三列") OrElse e.DataRow("第三列") = 0 Then
e.DataRow("第三列") = Nothing
Else
a = 3
e.DataRow("第六列") = e.DataRow("第六列") + e.DataRow("第三列")
End If
If e.DataRow.IsNull("第四列") OrElse e.DataRow("第四列") = 0 Then
e.DataRow("第四列") = Nothing
Else
a = 4
e.DataRow("第六列") = e.DataRow("第六列") + e.DataRow("第四列")
End If
If e.DataRow.IsNull("第五列") OrElse e.DataRow("第五列") = 0 Then
e.DataRow("第五列") = Nothing
Else
a = 5
e.DataRow("第六列") = e.DataRow("第六列") + e.DataRow("第五列")
End If
End Select
加好友 
发短信
Post By：2017/2/20 13:41:00 [显示全部帖子]
