代码错误求指教！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name
    Case "申报性质","申报鉴定工种","是否合格","理论考否","考试性质"
        If e.DataRow("鉴定等级") = "技师" Then
            If e.DataRow("申报性质") = "正常申报" Then
                If e.DataRow("是否合格") = True Then
                    e.DataRow("理论考否") = True
                    e.DataRow("考试性质") = "机试"
                Else
                    e.DataRow("理论考否") = False
                    e.DataRow("考试性质") = "纸试"
                End If
            Else
                e.DataRow("考试性质") = e.DataRow("申报性质")
            End If
        End If

End Select

Select Case e.DataCol.Name
    Case "申报性质","申报鉴定工种","是否合格","理论考否","考试性质"
        If e.DataRow("鉴定等级") = "技师" Then
            If e.DataRow("申报性质") = "正常申报" Then
                If e.DataRow("是否合格") = True Then
                    e.DataRow("理论考否") = True
                    Dim fdr As DataRow = DataTables("机考工种表").Find("鉴定等级三 = '" & e.DataRow("鉴定等级") & "' And 机考工种 = '" & e.DataRow("申报鉴定工种") & "'")
                    If fdr IsNot Nothing Then
                        e.DataRow("考试性质") = "机试"
                    Else
                        e.DataRow("考试性质") = "纸试"
                    End If
                Else
                    e.DataRow("理论考否") = False
                    e.DataRow("考试性质") = "纸试"
                End If
            Else
                e.DataRow("考试性质") = e.DataRow("申报性质")
            End If
        End If

End Select

那你就重置列啊，代码没有问题

主题：代码错误求指教！