主题：导航窗口

老师，我用NavBar 控件和TreeView控件设计了一个导窗口，窗口类型为共有，不属于任何表，目录树末节点增加的代码如下：

 

这个窗口页中其中两个根目录树中的代码：

Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
    Case "管理档案"
       Case "入学登记表"
         MainTable = Tables("入学登记表")
       Case "员工信息表"
         MainTable = Tables("员工信息表")
     Case "财务档案"
        Case "收支类别表"
         MainTable = Tables("收支类别表")
       Case "会计科目表"
         MainTable = Tables("科目表")
End Select

 

这样设计后，点击末节点的名称，能打开相应的表，但是，表打开后，导航窗口就自动关闭了。请问是什么原因呢老师？还有请教以下几个问题：

1、老师，请问以目录树为导航窗的打开表的代码是什么，帮助里没有，只有代码的框架，没有具体的代码；

2、如何将表设计为只显示导航窗口中点击的表，其他表不显示，切换后原来的表也隐藏；

 

谢谢老师，另外，事件是TopiclinkClick 事件还是click事件呢？？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:导航窗口设计列子.foxdb

老师，麻烦你在我的例中的任务事件加上代码，当我在导航栏日常报表面点击表A时，能切换到表A，表B表C隐藏，点击表C时，切换到表C，表A表B隐藏。同时，导航窗口一直都在，不因切换表而关闭

2、隐藏标题

 

TableCaptionVisible = False

 

 

老师，这个代码是写在哪里的呢，我没查到哦，麻烦指点下，谢谢！！

 

输出全部代码，没有发现哎

项目事件

 

计划管理

 

表事件

 

窗口表事件

 

窗口与控件事件

 

导航_TopicBar1_TopicLinkClick

 

Select Case e.Link.text

    Case "表A"

 

        MainTable = Tables("表A")

    Case "表C"

        MainTable = Tables("表C")

End Select

 

自定义函数

 

全局代码

 

菜单事件

哦，谢谢老师

老师，一夜之间，我的项目打开时全找不到窗口了，都提示找不到名为“”的窗口，这些窗口实际都在的，都还能被设计，窗口的名称没有变，代码也没有变。是什么情况啊。。。

啊老师，不好意思，当天停电了，第二次打开又没有事了，谢谢！

另外，我设计的窗口，是共有窗口，也设计了代码打开窗口，但是，一是项目打开后不自动打开导航窗口，二是即使通过窗口命令打开窗口后，点击命令导航菜单按钮打开表后导航窗口也会自动关闭。请问是怎么回事呢

如果把这个窗口改为属于某一表的主窗口，如果打开窗口，则主表的内容不见；如果打开主表，则窗口又关闭了，是哪点的问题呢？？