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("是否合格") = False
End If
End If
End Select
表中有“鉴定等级”、“申报性质”,“参加工作时间”,“原技术资格等级”,“是否合格”等列,这是其中一段代码,当“鉴定等级”为中级工时,想实现如下功能判断:
1、当“申报性质”是“正常申报”时,如“原技术资格等级”为空,且“参加工作时间”满12年(含),则“是否合格”为True;
2、当“申报性质”是“正常申报”时,如“原技术资格等级”为空,且“参加工作时间”不满12年,则“是否合格”为False;
3、当“申报性质”是“正常申报”时,如“原技术资格等级”、“参加工作时间”都为空,则“是否合格”为True;
现在的问题是:当“参加工作时间”为空时,“是否合格”没有变化!!!也不报错!!!
这是代码上出了什么问题吗?
烦请版主指点!!!谢谢!!!