主题：我在NodeMouseDoubleClick事件里，加了一段代码，然后就提示出错。

我在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