主题：代码编写问题求助？

If e.DataRow("鉴定等级") = "高级技师" Then
    If e.DataRow("原技术资格等级") = "技师" AndAlso e.DataRow("原资格证书工种") = "申报鉴定工种" AndAlso Cdate(e.DataRow("原等级取得时间")).Year <= Date.Today.Year - 3 Then
        e.DataRow("是否合格") = True
    Else If e.DataRow("原技术资格等级") = "技师"
        Dim fdr As DataRow = DataTables("证书编号表").Find("身份证号码 = '" & e.DataRow("身份证号码") & "' And 证书编号 = '" & e.DataRow("原资格证书编号") & "'")
        e.DataRow("是否合格") = fdr IsNot Nothing
    Else
        e.DataRow("是否合格") = False
       
    End If
End If

上述代码不报错，但不起作用!!!!!!

有“报名登记表”和“证书编号表”，有1员工要报考“高级技师”（已取得“技师”资格，在“证书编号表”中可查到），

他“是否合格”的条件是：

      1、“申报鉴定工种”和“证书编号表”中取得“技师”资格时的工种一样；

      2、取得“技师”资格满3年；

以上2条同时符合，则其报名条件为“合格”！！！！！！

求助版主给指教，谢谢！！！！！！