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

求助版主，为什么不会自动判定？

项目目的：通过对“报名员工”的条件判定其是否符合报名条件，符合则在报名记表的“是否合格”列自动填入“是”，不符合则填入“否”；

判定条件：1、“报名登记表”中的“原资格证书编号”列中的号和“证书编号表”中的号一致且是员工本人的，且“原等级取得时间”到现在年份满3年；

2、“报名登记表”中的“原技术资格工种”列是“助理工程师”，且“原等级取得时间”到现在年份满4年；

3、“报名登记表”中的“原技术资格工种”列是“工程师”，则直接符合；

以上3点符合1点即可；

下载信息 [文件大小：976.9 KB 下载次数：0]

点击浏览该文件:鉴定管理.rar

我测试没问题啊。

 

If Forms("报名审核").Opened AndAlso Forms("报名审核").Controls("TabControl1").SelectedPage.Text = "报名登记表"

 

End If

 比如控件的enter事件代码

 

Dim gzdw As WinForm.ComboBox = e.Sener
gzdw.ComboList = DataTables("报名登记表").GetComboListString("工作单位")

If e.DataCol.Name = "鉴定等级" Then
    If Forms("报名审核").Opened Then
        Forms("报名审核").Controls("总人数").Text = e.DataTable.Compute("count(姓名)",Tables("报名登记表").filter)
        Forms("报名审核").Controls("初级工").Text = e.DataTable.Compute("count(姓名)", "鉴定等级 = '初级工' And " & iif(Tables("报名登记表").filter>"",Tables("报名登记表").filter,"1=1"))
        Forms("报名审核").Controls("中级工").Text = e.DataTable.Compute("count(姓名)", "鉴定等级 = '中级工' And " & iif(Tables("报名登记表").filter>"",Tables("报名登记表").filter,"1=1"))
        Forms("报名审核").Controls("高级工").Text = e.DataTable.Compute("count(姓名)", "鉴定等级 = '高级工' And " & iif(Tables("报名登记表").filter>"",Tables("报名登记表").filter,"1=1"))
        Forms("报名审核").Controls("技师").Text = e.DataTable.Compute("count(姓名)", "鉴定等级 = '技师' And " & iif(Tables("报名登记表").filter>"",Tables("报名登记表").filter,"1=1"))
        Forms("报名审核").Controls("高级技师").Text = e.DataTable.Compute("count(姓名)", "鉴定等级 = '高级技师' And " & iif(Tables("报名登记表").filter>"",Tables("报名登记表").filter,"1=1"))
        Forms("报名审核").Controls("男").Text = e.DataTable.Compute("count(姓名)", "性别 = '男' And " & iif(Tables("报名登记表").filter>"",Tables("报名登记表").filter,"1=1"))
        Forms("报名审核").Controls("女").Text = e.DataTable.Compute("count(姓名)", "性别 = '女' And " & iif(Tables("报名登记表").filter>"",Tables("报名登记表").filter,"1=1"))
       
    End If
End If
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

以上是我根据您的提示在“报名登记表”的DataColChanged事件里写入的代码，但“是否合格列”没反应，点重置列，只有第1行出现“Flase”，其它的行没动静！

再点重置列就出现下面报错！

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2014.11.11.1
错误所在事件：表，报名登记表， DataColChanged
详细错误信息：
调用的目标发生了异常。
列“证书编号”不属于表 报名登记表。

都没动哪，查询又查不了了，太不稳定了，求救！！！！！！！

 提示很清楚啊 列“证书编号”不属于表 报名登记表。

“证书编号”列是属于“证书编号表”的，问题是我要调用它和“报名登记表”的“原资格证书编号”列进行比对啊！

另外还要对两表的姓名、身份证号码列进行比对，才能确认是同1人，然后再对其进行年份够不够，够的话就符合，否则不符合。

我是根据您先前帮我写的代码进行修改的，但确实不知怎么写才正确，都改写了很多遍了！