我在NodeMouseDoubleClick事件里，加了如下一段代码：

Select Case e.Page.Name
    Case  "特色功能"
        Select Case e.Link.Name
            Case "汇总模式"
                Forms("多层表头").Open()
                MainTable = Tables("多层表头")
            Case "框架模式"
                Forms("多层表头").Open()
                MainTable = Tables("多层表头")
            Case "合并模式"
                Forms("合并模式").Open()
                MainTable = Tables("合并模式")
            Case "多层表头"
                Forms("多层表头").Open()
                MainTable = Tables("多层表头")
            Case "表达式列"
                Forms("多层表头").Open()
                MainTable = Tables("多层表头")
            Case "单元格绘图"
                Forms("单元格绘图").Open()
                MainTable = Tables("单元格绘图")
        End Select
    Case  "特色功能"
        Select Case e.Link.Name
            Case "汇总模式"
                Forms("多层表头").Open()
                MainTable = Tables("多层表头")
            Case "框架模式"
                Forms("多层表头").Open()
                MainTable = Tables("多层表头")
            Case "合并模式"
                Forms("合并模式").Open()
                MainTable = Tables("合并模式")
            Case "多层表头"
                Forms("多层表头").Open()
                MainTable = Tables("多层表头")
            Case "表达式列"
                Forms("多层表头").Open()
                MainTable = Tables("多层表头")
            Case "单元格绘图"
                Forms("单元格绘图").Open()
                MainTable = Tables("单元格绘图")
        End Select
    Case  "特色功能"
        Select Case e.Link.Name
            Case "汇总模式"
                Forms("多层表头").Open()
                MainTable = Tables("多层表头")
            Case "框架模式"
                Forms("多层表头").Open()
                MainTable = Tables("多层表头")
            Case "合并模式"
                Forms("合并模式").Open()
                MainTable = Tables("合并模式")
            Case "多层表头"
                Forms("多层表头").Open()
                MainTable = Tables("多层表头")
            Case "表达式列"
                Forms("多层表头").Open()
                MainTable = Tables("多层表头")
            Case "单元格绘图"
                Forms("单元格绘图").Open()
                MainTable = Tables("单元格绘图")
        End Select
End Select

按“确定”的时候，就出现如下图所示的错误。

此主题相关图片如下：199.jpg

Select Case e.Node.Name
    Case  "基本设置"
        Select Case e.Node.Text
            Case "岗位设置"
                Forms("岗位设置").Open()
            Case "资格证书设置"
                Forms("资格证书").Open()
            Case "专业设置"
                Forms("职业设置").Open()
            Case "学历设置"
                Forms("学历设置").Open()
        End Select
    Case  "组织机构"
        Select Case e.Node.Text
            Case "组织机构"
                Forms("组织机构").Open()
            Case "组织管理"
                Forms("组织管理").Open()
        End Select
    Case  "人事管理"
        Select Case e.Node.Text
            Case "创建人员"
                Forms("创建人员").Open()
            Case "人员转正"
                Forms("人员转正").Open()
            Case "人员调动"
                Forms("人员调动").Open()
            Case "人员离职"
                Forms("人员离职").Open()
            Case "人员续聘"
                Forms("人员续聘").Open()
            Case "人员退休"
                Forms("人员退休").Open()
                MainTable = Tables("人员退休")
            Case "人员返聘"
                Forms("人员返聘").Open()
                MainTable = Tables("人员返聘")
            Case "人员解聘"
                Forms("人员解聘").Open()
                MainTable = Tables("人员解聘")
            Case "人员导入"
                Forms("人员导入").Open()
            Case "合同管理"
                Forms("合同管理).Open()
                MainTable = Tables("合同管理")
        End Select
    Case  "招聘管理"
        Select Case e.Node.Text
            Case "用工需求"
                Forms("用工需求").Open()
            Case "招聘计划"
                Forms("招聘计划").Open()
            Case "应聘库"
                Forms("应聘库").Open()
            Case "招聘管理"
                Forms("招聘管理").Open()
            Case "招聘报表"
                Forms("招聘报表").Open()
        End Select
    Case  "工资管理"
        Select Case e.Node.Text
            Case "工资一览"
                Forms("工资一览").Open()
            Case "工资录入
                Forms("工资录入").Open()
            Case "工资结算"
                Forms("工资结算").Open()
            Case "工资单"
                Forms("工资单").Open()
            Case "邮件通知"
                Forms("邮件通知").Open()
        End Select
End Select

我做了上面一段代码，那为什么打开窗口的代码都无效了呢，点击目录树的节点，都没有任何反应，请问，这是什么原因？

你错得一塌糊涂，别人帮不了你。

做个简单的例子说话。

上面的这段代码 ，我就加在NodeMouseDoubleClick事件里啊，请问，狐狸爸爸 该怎么调整呢