主题：按钮代码问题求助版主！！！！！！

 肯定是你Datacolchanged的代码写得有问题，暂时可以这样处理

Dim Result As DialogResult
Result = MessageBox.Show("确定导出?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question,MessageBoxDefaultButton.Button2)
If result = DialogResult.Yes Then
    Dim Cols1() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","现岗位名称","参加工作时间","现工种工作时间","原技术资格等级","原等级取得时间","原资格证书工种","原资格证书编号","鉴定等级","申报鉴定工种","鉴定批次","申报性质","用工性质","原人才当量值","备注","照片","是否合格","资格审核","鉴定时间"}
    Dim Cols2() As String = {"工作单位","县公司","姓名","性别","身份证号码","文化程度","现岗位名称","参加工作时间","现工种工作时间","原技术资格等级","原等级取得时间","原资格证书工种","原资格证书编号","鉴定等级","申报鉴定工种","鉴定批次","申报性质","用工性质","原人才当量值","备注","照片","是否合格","资格审核","鉴定时间"}
    SystemReady = False
    For Each dr1 As DataRow In DataTables("报名登记表").Select("[资格审核] = True ")
        Dim dr2 As DataRow = DataTables("审核合格表").Find("身份证号码 = '" & dr1("身份证号码") & "' And 鉴定批次 = '" & dr1("鉴定批次") & "'")
        If dr2 Is Nothing Then
            dr2 = DataTables("审核合格表").AddNew
        End If
        For i As Integer = 0 To Cols1.Length -1
            dr2(Cols2(i)) = dr1(Cols1(i))
        Next
    Next
    SystemReady = True
End If

 Datacolchanged一定要判断列名

http://www.foxtable.com/help/topics/1522.htm

 叫你判断列名啊亲

 全部放在判断里面

Select Case e.DataCol.Name

    Case "鉴定等级",  "是否合格", "申报性质"

End Select

If e.DataRow("鉴定等级") = "高级工" Then
    e.DataRow("是否合格") = True
End If

If e.DataRow("鉴定等级") = "中级工" Then
    e.DataRow("是否合格") = True
End If

Select Case e.DataCol.Name
    Case "鉴定等级",  "是否合格", "申报性质"
        If e.DataRow("鉴定等级") = "高级工" OrElse e.DataRow("鉴定等级") = "中级工" Then
            If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("是否合格") = True Then
                e.DataRow("资格审核") = True
                If e.DataRow("申报性质") = "补考理论" AndAlso e.DataRow("是否合格") = True Then
                    e.DataRow("资格审核") = True
                    If e.DataRow("申报性质") = "补考实操" AndAlso e.DataRow("是否合格") = True Then
                        e.DataRow("资格审核") = True
                    Else
                        e.DataRow("资格审核") = False
                    End If
                End If
            End If
        Else
           
            If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("是否合格") = True Then
                e.DataRow("资格审核") = True
            Else
                e.DataRow("资格审核") = False
            End If
           
        End If
End Select

 你说其余的都一样啊

ElseIf e.DataRow("鉴定等级") = "技师" Then

Else    
    If e.DataRow("申报性质") = "正常申报" AndAlso e.DataRow("是否合格") = True Then
        e.DataRow("资格审核") = True
    Else
        e.DataRow("资格审核") = False
    End If
   
End If