主题：导航栏问题

我发现一个问题，也是导航栏的问题。我也是按照以下代码编辑

Dim bar As WinForm.NavBar = e.sender
Select Case bar.SelectedPage.ButtonText
Case "A"
MainTable = Tables("表A")
Case "B"
MainTable = Tables("表B")
Case "C"
MainTable = Tables("表C")
End Select

 

但是应用后，关闭重新打开时，总是会发现页面停留在页面3， 但是显示的却是表A 的内容。

 

 

 

 

此主题相关图片如下：2.jpg

请教该如何解决这个问题？

 

非常感谢。

谢谢各位指点

对不起，我编的代码是： tables("表A").visible=true ， 在项目事件AFTEROPENPROJECT 中加入这样的代码。

 

但是没有成功。

 

请问我应该怎么编正确的代码。

谢谢了。

 

真是不好意思，这个代码放在那个事件部分中呢？ 我尝试放在项目事件中，和导航栏中的事件中，都没有成功。

真是不好意思，这个代码放在那个事件部分中呢？ 我尝试放在项目事件中，和导航栏中的事件中，都没有成功。

很厉害，解决掉这个问题了。