主题：代码合并写法求教版主！！！！！！

Select Case e.DataCol.Name
    Case "申报性质","申报鉴定工种","理论考否","考试性质"
        If e.DataRow("鉴定等级") = "技师" Then
            If e.DataRow("申报性质") = "正常申报" Then
                e.DataRow("理论考否") = True
            Else
                e.DataRow("理论考否") = False
            End If
           
            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