If e.DataRow("鉴定等级") = "高级工" Then
e.DataRow("是否合格") = True
End If
If e.DataRow("鉴定等级") = "中级工" Then
e.DataRow("是否合格") = True
End If
Select Case e.DataCol.Name
Case "鉴定等级", "是否合格", "申报性质"
If e.DataRow("鉴定等级") = "高级工" OrElse e.DataRow("鉴定等级") = "中级工" Then
If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("是否合格") = True Then
e.DataRow("资格审核") = True
If e.DataRow("申报性质") = "补考理论" AndAlso e.DataRow("是否合格") = True Then
e.DataRow("资格审核") = True
If e.DataRow("申报性质") = "补考实操" AndAlso e.DataRow("是否合格") = True Then
e.DataRow("资格审核") = True
Else
e.DataRow("资格审核") = False
End If
End If
End If
Else
If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("是否合格") = True Then
e.DataRow("资格审核") = True
Else
e.DataRow("资格审核") = False
End If
End If
End Select