主题：菜单click事件后，选中相应的导航栏某一栏

也可以设置Selectedpage http://www.foxtable.com/help/topics/0875.htm

        错误代码：Bar=e.Form.Controls("NavBar1")

用 froms("窗口1").controls   不要盲目套用.

而且要判断一下窗口是否已经打开,否则窗口未打开又会报错找不到控件

if forms("窗口1").opened then

   froms("窗口1").controls 

end if

Dim Bar As WinForm.NavBar

If Forms("首页").opened Then '================主窗口，我设计的是主窗口导航方式

    Bar=Forms("首页").Controls("NavBar1")

End If

If user.Group = "汽修管理"  Then

    RibbonTabs("我的工作台").Groups("汽修").visible = True

    RibbonTabs("我的工作台").Groups("仓库").visible = False

    RibbonTabs("我的工作台").Groups("客户").visible = False

    RibbonTabs("我的工作台").Groups("财务").visible = False

    RibbonTabs("我的工作台").Groups("初始化").visible = True

    RibbonTabs("我的工作台").Groups("用户").visible = True

    RibbonTabs("我的工作台").Groups("附件").visible = True

    ' RibbonTabs("我的工作台").Groups("开发").visible = False

    '---导航栏权限设置

    If Forms("首页").opened Then

        Bar.NavPages(1).Visible=True  '汽修管理

        Bar.NavPages(2).Visible=False '仓库管理

        Bar.NavPages(3).Visible=False '客户管理

        Bar.NavPages(4).Visible=False '财务管理

    End If

End If

===请问，刚开始进入（用汽修管理的权限）时，主窗口还没有生成，这时，导航栏是全部显示的，只有重新进行一次权限登录后才能符合要求，怎么办？我要求，一进入系统时就能达到管理导航栏权限的要求。