以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请帮助解决?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=28962)

--  作者:lyfxybc
--  发布时间:2013/2/23 23:22:00
--  请帮助解决?

请帮助解决?


图片点击可在新窗口打开查看此主题相关图片如下: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控件


 


--  作者:lyfxybc
--  发布时间:2013/2/24 8:35:00
--  
已解决
--  作者:一叶扁舟
--  发布时间:2013/2/24 9:38:00
--  

如何解决的?

问题出在哪里?

给新手一些经验教训吧!


--  作者:lyfxybc
--  发布时间:2013/2/24 10:32:00
--  

可以

  在右边加入多个页面集合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

 

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