Select Case e.DataCol.Name Case "原技术资格等级","原等级取得时间","身份证号码" If e.DataRow("鉴定等级") = "技师" Then If e.DataRow("原技术资格等级") = "助理电力工程师" AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 4 Then e.DataRow("是否合格") = True Else If e.DataRow("原技术资格等级") = "电力工程师" e.DataRow("是否合格") = True Else Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 申报鉴定工种 = '" & e.DataRow("申报鉴定工种") & "' And 证书编号 = '" & e.DataRow("原资格证书编号") & "' And convert(substring(证书编号,1,2),'System.Int32') <= " & Date.Today.Year - 2000 - 5) If fdr IsNot Nothing Then e.DataRow("是否合格") = True Else e.DataRow("是否合格") = False End If End If End If End If End Select
|