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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码合并写法求教版主！！！！！！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=72116)

--  作者：lisheng7177
--  发布时间：2015/7/23 16:04:00
--  代码合并写法求教版主！！！！！！

请教版主，以下两段代码是否可以合并？

第1段：

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

End Select

第2段：

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

--  作者：大红袍
--  发布时间：2015/7/23 16:08:00
--

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

--  作者：lisheng7177
--  发布时间：2015/7/23 16:10:00
--
谢谢版主！！！！！！