主题：请帮助解决？

请帮助解决？

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

如图，在任务栏中点击坯布报表后进入目录树点击各节点执行正确，代码如下：

             Select Case e.Node.Text

                  Case "坯布日报表"

                         e.Form.Controls("TabControl1").SelectedIndex = 1

                  Case "车间日报表"

                         e.Form.Controls("TabControl1").SelectedIndex = 2

                  Case "坯布月汇总"

                         e.Form.Controls("TabControl1").SelectedIndex = 3

              End Select

 

而在任务栏中点击成品报表进入如图所示的界面，点击节点，出现

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

代码：

            Select Case e.Node.Text

                  Case "成品产质量分等统计日报表"

                         e.Form.Controls("TabControl1").SelectedIndex = 15

            End Select

 

为什么，代码如何改？

如何设置任务栏不同页面下的目录树节点连接问题。

上述代码在坯布报表中执行。

如果在右边再加一个TabControl2，如何写代码。

我用下列代码

            Select Case e.Node.Text

                  Case "成品产质量分等统计日报表"

                         e.Form.Controls("TabControl2").SelectedIndex = 1

            End Select

出现找不着TabControl2控件

 

已解决

可以

  在右边加入多个页面集合TabControl1、TabControl2、TabControl3时，要想在左边点击节点进入右面相应的页面TabControl1、TabControl2、TabControl3时，必须打开需要的页面，关闭不需要的页面。

在各自的目录树中设置

Select Case e.Node.Text

             Case "成品产质量分等统计日报表"

                e.Form.Controls("TabControl2").Visible=True

               e.form.Controls("TabControl1").Visible=False

                 e.Form.Controls("TabControl2").SelectedIndex = 1

End Select

 

Select Case e.Node.Text

             Case "坯布日报表"

                e.Form.Controls("TabControl1").Visible=True

               e.form.Controls("TabControl2").Visible=False

                 e.Form.Controls("TabControl2").SelectedIndex = 1

End Select

 

仅供参考，也许有更好的方法和更优秀的代码。