if 语句本身可以多分支的:
Select Case e.DataCol.name
Case "第一列","第二列"
If e.DataRow.isnull("第一列") OrElse e.DataRow.isnull("第二列") Then
e.DataRow("第三列")=Nothing
ElseIf e.DataRow("第一列")=e.DataRow("第二列") And e.DataRow("第一列")="aaa" And e.DataRow("第二列")="aaa" Then
e.DataRow("第三列")="同类同"
ElseIf e.DataRow("第一列")<>"aaa" And e.DataRow("第二列")<>"aaa" And e.DataRow("第一列")=e.DataRow("第二列") Then
e.DataRow("第三列")="异类同"
ElseIf e.DataRow("第一列") <> e.DataRow("第二列") And e.DataRow("第一列")<>"aaa" And e.DataRow("第二列")<>"aaa" Then
e.DataRow("第三列")="异类"
ElseIf e.DataRow("第一列")="aaa" And e.DataRow("第二列")<>"aaa" Then
e.DataRow("第三列")="顺差"
ElseIf e.DataRow("第一列")<>"aaa" And e.DataRow("第二列")="aaa" Then
e.DataRow("第三列")="逆差"
Else
e.DataRow("第三列")="注意异常请检查"
End If
End Select