主题：问题求助

        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("是否合格") = true

            else

                e.DataRow("是否合格") = false
            End If
        End If

逻辑错误的时候，加入msgbox弹出关键值，看是否正常。

改成

        Else If e.DataRow("鉴定等级") = "高级工" Then
            If  e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("原技术资格等级") = Nothing AndAlso e.DataRow("参加工作时间") = Nothing Then
                e.DataRow("是否合格") = False           

            else 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
            End If
        End If