以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]升级后导航栏代码失效  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=81940)
--  作者：倪惠明
--  发布时间：2016/3/9 9:48:00
--  [求助]升级后导航栏代码失效
系统设计了导航栏，原系统使用正常，但升级后其代码失效，不知是何原因，代码是按帮助写的。

为此可以将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
--  作者：大红袍
--  发布时间：2016/3/9 10:28:00
--  
在顶部加入msgbox(e.Sender.SelectedPage.ButtonText) 看看弹出什么。
--  作者：倪惠明
--  发布时间：2016/3/9 10:58:00
--  
没有任何显示，好像是该事件没有执行
--  作者：大红袍
--  发布时间：2016/3/9 11:03:00
--  
嗯嗯，确实，是bug。
--  作者：倪惠明
--  发布时间：2016/3/9 11:05:00
--  
急切盼望修订
--  作者：狐狸爸爸
--  发布时间：2016/3/9 11:13:00
--  
收到
--  作者：倪惠明
--  发布时间：2016/3/9 16:35:00
--  
多久能解决，现在系统无法使用很着急。
--  作者：大红袍
--  发布时间：2016/3/9 16:50:00
--  
以下是引用倪惠明在2016/3/9 16:35:00的发言：
多久能解决，现在系统无法使用很着急。

 

尽快的。