Select Case e.DataCol.name
Case "回答", "答案"
If e.DataRow.isnull("回答") OrElse e.DataRow.isnull("答案") Then
e.DataRow("结果") = Nothing
Else
If e.DataRow("回答") = e.DataRow("答案") Then
e.DataRow("结果") = "正确"
Else
e.DataRow("结果") = "错误"
End If
End If
End Select