主题：这是错在哪？判断代码问题求指点！！！！！！

Select Case e.DataCol.Name
    Case "原技术资格等级","原等级取得时间","身份证号码"
        If Forms("报名审核").Opened AndAlso Forms("报名审核").Controls("TabControl1").SelectedPage.Text = "报名登记表"
            If e.DataRow("鉴定等级") = "技师" Then
                If e.DataRow("原技术资格等级") = "助理电力工程师" AndAlso e.DataRow("原等级取得时间") <= Date.Today.Year - 4 Then
                    e.DataRow("是否合格") = True
                Else
                    e.DataRow("是否合格") = False
                    If e.DataRow("原技术资格等级") = "电力工程师"
                        e.DataRow("是否合格") = True
                    Else
                        e.DataRow("是否合格") = False
                        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 If
       
End Select

 

版主指点：上述代码（“报名登记表”的datacolchenged事件）是否有误？我在“报名登记表”里新手动填写某员工，其"原技术资格等级"列填了“助理电气工程师”，“原等级取得时间”也满足大于4年的要求，但“是否合格”列只显示“否”；另我随意修改员工信息，让其不合格，“是否合格”列也不会变化；

 这句判断删除看看 If Forms("报名审核").Opened AndAlso Forms("报名审核").Controls("TabControl1").SelectedPage.Text = "报名登记表"

 

 另外，加入msgbox(1) 弹出有没有进去执行对应代码。

我的想法是，无论是我导入的报名信息，还是我手动填入的或改动员工信息，只要达到要求，“是否合格”列应该会自动变动；就象EXECL表那样；

 看102楼。

我删除了，还是没用；但加入msgbox(1) 弹出执行对应代码

点击“是否合格”控件，到是可以选择查询“是”或“否”

 

执行修改，看是否弹出代码啊。如果没有弹出，说明没有触发里面的代码啊

 

可以啊，判断的时候，判断 是 或 否即可。

我还是没明白您所说的加入msgbox(1) 弹出执行对应代码，现在导入后会自动判断，但在“助理电力工程师”和“电力工程师”上就全是“否，哪怕是手动加的新信息是符合的也一样，另外我把判断合格的员工故意改成不符合条件的也不会变化。

 加入，如果触发里面的代码，就会弹出提示啊，如果没有触发，就是弹出之前的代码写得有问题啊。

 

 我不想跟你解释1+1为什么等2，你能不能先把小学的知识先看一下？