主题：代码编写求助？

If e.DataRow("鉴定等级") = "技师" Then
    If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("理论成绩") >=60 Then
        e.DataRow("实潜资格") = True
    Else If e.DataRow("申报性质") = "补考两项" Then
        e.DataRow("实潜资格") = True
    Else If e.DataRow("申报性质") = "补考实操" Then
        e.DataRow("实潜资格") = True
    Else If e.DataRow("申报性质") = "补考潜能" Then
        e.DataRow("实潜资格") = True
    Else If e.DataRow("实操成绩") >=75 AndAlso e.DataRow("潜能成绩") >=60
        e.DataRow("评审资格") = True
    Else
        e.DataRow("实潜资格") = False
        e.DataRow("评审资格") = False
       
    End If
End If

目的：1、“申报性质”为 正常申报，且理论成绩〉＝60的；“申报性质”为 补考两项或补考实操或补考潜能的，则“实潜资格”为TRUE；

         2、在1的基础上，如“实操成绩”>=75 和“潜能成绩”>=60，则“评审资格”为TRUE；

这段代码错在哪？我只能做到正确判断“实潜资格”，

If e.DataRow("鉴定等级") = "技师" Then
    If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("理论成绩") >=60 Then
        e.DataRow("实潜资格") = True
    Else If e.DataRow("申报性质") = "补考两项" Then
        e.DataRow("实潜资格") = True
    Else If e.DataRow("申报性质") = "补考实操" Then
        e.DataRow("实潜资格") = True
    Else If e.DataRow("申报性质") = "补考潜能" Then
        e.DataRow("实潜资格") = True
    Else
        e.DataRow("实潜资格") = False
    End If
    If e.DataRow("实潜资格") = True AndAlso e.DataRow("实操成绩") >=75 AndAlso e.DataRow("潜能成绩") >=60 Then
        e.DataRow("评审资格") = True
    Else
        e.DataRow("评审资格") = False
    End If
End If

谢谢甜版！下面是我刚修改写的代码，虽然繁杂了些，但好象也能达到我的目的，您给看看：

If e.DataRow("鉴定等级") = "技师" Then
    If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("理论成绩") >=60 Then
        e.DataRow("实潜资格") = True
    Else If e.DataRow("申报性质") = "补考两项" Or e.DataRow("申报性质") = "补考实操"  Or e.DataRow("申报性质") = "补考潜能" Then
        e.DataRow("实潜资格") = True
    Else If e.DataRow("申报性质") = "重新评审" Or e.DataRow("申报性质") = "破格评审" Then
        e.DataRow("实潜资格") = True
    Else
        e.DataRow("实潜资格") = False
       
    End If
End If

If e.DataRow("鉴定等级") = "技师" Then
    If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("实潜资格") = True AndAlso e.DataRow("实操成绩") >=75 AndAlso e.DataRow("潜能成绩") >= 60 Then
        e.DataRow("评审资格") = True
    Else If e.DataRow("申报性质") = "补考两项" AndAlso e.DataRow("实操成绩") >=75 AndAlso e.DataRow("潜能成绩") >= 60 Then
        e.DataRow("评审资格") = True
    Else If e.DataRow("申报性质") = "补考实操" AndAlso e.DataRow("实操成绩") >= 75 Then
        e.DataRow("评审资格") = True
    Else If e.DataRow("申报性质") = "补考潜能" AndAlso e.DataRow("潜能成绩") >= 60 Then
        e.DataRow("评审资格") = True
    Else If e.DataRow("申报性质") = "重新评审" Or e.DataRow("申报性质") = "破格评审" Then
        e.DataRow("评审资格") = True
    Else
        e.DataRow("评审资格") = False
       
    End If
End If

End If
If e.DataRow("实潜资格") = True AndAlso e.DataRow("实操成绩") >=75 AndAlso e.DataRow("潜能成绩") >=60 Then
关键在这两句，我就是没想转该怎么组织这代码上的逻辑关系，还是您厉害！语句简练，效率高！