主题：优化代码求指教！

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