主题：[求助]升级后导航栏代码失效

为此可以将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