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

你能不能先去学基础？

 

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)

我这些天把帮助都看了N遍了，说句实话，简单点的代码，看了帮助我自己能写，复杂的我还真写不出，也许我理解能力不行吧，要不也不会总麻烦您了。

甜版，代码写入表的DataColChanhed事件，但还是不会自动判断，是不是写错了地方？

用系统杂项里的命令窗口去执行提示错误！

 

根本就没有必要在DataCochanged事件判断啊。

 

要判断也是在导入按钮或者是重置列那里判断啊。

 

走马看花的阅读帮助，不要说自己看过了。我还看完辞海了呢

此主题相关图片如下：nb~%io4qbzugmml%3_zezd.png

 无语，click事件不能用e.DataCol对象啊。

 

 我的意思是，你在按钮那里写重置某列的代码啊。

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事件里写入的代码，然后我在判断按钮的CLICK事件里写入

With DataTables("报名登记表")
    .DataCols("是否合格").RaiseDataColChanged(.DataRows(0))

为什么点按钮就会退出？
End With