主题：导航窗口

老师，我用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、如何将表设计为只显示导航窗口中点击的表，其他表不显示，切换后原来的表也隐藏；

 

共有窗口，是不会因为设置了maintable而关闭的。你好好看看那个是不是共有窗口。

 

1、

 

Forms("窗口1").Open

MainTable = Tables("入学登记表")

 

2、隐藏标题

 

TableCaptionVisible = False

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

要看你用什么控件，TopicBar 肯定写在 TopicLinkClick

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

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

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

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

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

2、隐藏标题

 

TableCaptionVisible = False

 

 

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

 

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

项目事件

 

计划管理

 

表事件

 

窗口表事件

 

窗口与控件事件

 

导航_TopicBar1_TopicLinkClick

 

Select Case e.Link.text

    Case "表A"

 

        MainTable = Tables("表A")

    Case "表C"

        MainTable = Tables("表C")

End Select

 

自定义函数

 

全局代码

 

菜单事件

我在项目属性里设置的。->显示标题->False

 

用代码，你可以写到窗口afterLoad事件去TableCaptionVisible = False

哦，谢谢老师