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

表里有“原技术资格等级”、“原等级取得时间”……以及“是否合格”等列，想根据条件自动在“是否合格”列里得出“是或否”，我在表的DataColChanged事件里输入下面代码，但不报错也没有反应，这是什么原因？

If Forms("报名审核").Controls("TabControl1").Selected("报名登记表").txt
        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