专家坐堂-求教”导航栏“的问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求教”导航栏“的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=38279)

--  作者：zhangjun688
--  发布时间：2013/7/24 17:29:00
--  求教”导航栏“的问题

SelectedIndexChanged
选择不同页面后执行。
e参数属性：
Sender：返回触发事件的控件
Form:   返回控件所在的窗口
示例
假定导航栏有三个页面，标题分别是页面1、页面2、页面3，希望选择这些页面时，能同时切换到对应的表A、表B、表C。
为此可以将SelectedIndexChanged事件代码设置为：
Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
    Case "页面1"
         MainTable = Tables("表A")
    Case "页面2"
         MainTable = Tables("表B")
    Case "页面3"
         MainTable = Tables("表C")
End Select
如何通过点击”页面1“、”页面2“、“页面3“切换到该页面对应的主窗口？

--  作者：Bin
--  发布时间：2013/7/24 17:32:00
--
Select Case bar.SelectedPage.ButtonText
    Case "页面1"
         MainTable = Tables("表A")
forms("窗口1").show
    Case "页面2"
         MainTable = Tables("表B")
forms("窗口2").show
    Case "页面3"
         MainTable = Tables("表C")
forms("窗口3").show
End Select

--  作者：zhangjun688
--  发布时间：2013/7/24 18:52:00
--

Bin老师还是不对啊，出现下面的错误：

Select Case bar.SelectedPage.ButtonText
Case "人力资源管理"
forms("人力资源管理主界面").show
Case "行政管理"
forms("行政管理主界面").show
Case "报表系统"
forms("报表系统主界面").show
End Select

错误提示：
编译错误：mane ‘bar’ is not declared.
错误代码：Select Case bar.SelectedPage.ButtonText

--  作者：zhangjun688
--  发布时间：2013/7/24 19:23:00
--
谢谢Bin老师，已经解决了，是我自己 Dim bar As WinForm.NavBar = e.sender没加进去。