Else If e.DataRow("鉴定等级") = "高级工" Then
If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("原技术资格等级") = Nothing AndAlso Cdate(e.DataRow("参加工作时间")).Year <= Date.Today.Year - 12 Then
e.DataRow("是否合格") = True
Else If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("原技术资格等级") = Nothing AndAlso Cdate(e.DataRow("参加工作时间")).Year > Date.Today.Year - 12 Then
e.DataRow("是否合格") = False
Else If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("原技术资格等级") = Nothing AndAlso e.DataRow("参加工作时间") = Nothing Then
e.DataRow("是否合格") = true
else
e.DataRow("是否合格") = false
End If
End If
逻辑错误的时候,加入msgbox弹出关键值,看是否正常。