SystemReady = False
Select Case e.DataCol.name
Case "第一列","第二列","第三列"
If e.DataRow.isnull("第一列") then
e.DataRow("第四列")= Nothing
else
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
SystemReady = True
这个意思?