主题：[求助]目录树内打不开窗口

Select Case e.Node.text
    Case "基本情况"
        Forms("案件基本信息").OpenTo("jbqh")
    Case "违章登记"
        Forms("违章登记").OpenTo("wzdj")
        '更多的任务
End Select

以上的代码在目录树的NodeMouseClick事件内为何打不开"wzdj"表内的“违章登记”窗口，代码错在哪里了？

请大侠帮忙解决一下下，谢谢！

解决了

应该这样写：

Select Case e.Node.text
    Case "基本情况"
        Forms("案件基本信息").Open()
        MainTable = Tables("jbqh")
    Case "违章登记"
        Forms("违章登记").Open()
        MainTable = Tables("wzdj")
        '更多的任务
End Select