- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何在主窗口导航栏中同一目录树下管理多个表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103339)
-- 发布时间：2017/7/6 10:58:00
-- [求助]如何在主窗口导航栏中同一目录树下管理多个表
设计的主窗口样式如下：
此主题相关图片如下：0001.png
在主窗口下，左侧导航栏（NavBar1）中的“餐饮单位量化”页面设置有一个目录树（TreeView4）；右侧页面集合（TabControl1）的“餐饮量化”标签下有子页面集合（TabControl2）。
欲实现的目的如下：
点击左侧目录树（TreeView4），可切换到右侧子页面集合（TabControl2）的不同页签。
（左侧目录树一级目录按小吃类、快餐饮品类、餐馆食堂类分类，二级目录按街道村分类）
此主题相关图片如下：0002.png
已设置的代码：
其中NavBar1的Click事件：
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
trv1.BuildTree("综合分布表","乡镇|主体类别|街道村")
Dim trv2 As WinForm.TreeView = e.Form.Controls("TreeView2")
trv2.BuildTree("综合分布表","乡镇|街道村|主体类别")
Dim trv3 As WinForm.TreeView = e.Form.Controls("TreeView3")
trv3.BuildTree("食品销售量化表","乡镇|主体类别|街道村")
Dim trv4 As WinForm.TreeView = e.Form.Controls("TreeView4")
trv4.BuildTree("餐饮服务量化表","年度|经营类别")
Dim trv5 As WinForm.TreeView = e.Form.Controls("TreeView5")
trv5.BuildTree("日常办公表","年度|来文机关")
请问老师，
1.标红部分的代码应如何设置？
2.另外，根据左侧目录树（TreeView4）切换至右侧子页面标签（TabControl2）的代码应如何设置？
[此贴子已经被作者于2017/7/6 11:46:26编辑过]
-- 发布时间：2017/7/6 11:04:00
--
1、做一个表输入你要生成的目录树数据，然后生成表，代码不用改。
2、AfterSelectNode事件
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
tab.SelectedPage = tab.TabPages("餐饮量化")
Dim ta2 As WinForm.TabControl = e.Form.Controls("TabControl2")
tab.SelectedPage = tab.TabPages(e.node.text)
-- 发布时间：2017/7/6 11:45:00
-- 回复：（有点甜）1、做一个表输入你要生成的目录树数据...
没有效果，不懂哪个环节出错？
能否请老师指导一下？
附件已上传。
[此贴子已经被作者于2017/7/6 11:45:26编辑过]
-- 发布时间：2017/7/6 11:47:00
--
没看到附件，具体例子发上来看看。
[此贴子已经被作者于2017/7/6 11:47:18编辑过]
-- 发布时间：2017/7/6 11:53:00
-- 回复：（有点甜） 没看到附件，具体例子发上来看...
附件在一楼，请查阅。
-- 发布时间：2017/7/6 12:01:00
--
Dim tab1 As WinForm.TabControl = e.Form.Controls("TabControl1")
For Each tp As WinForm.TabPage In tab1.TabPages
If tp.Text = "餐饮量化" Then
tab1.SelectedPage = tp
End If
Next
Dim tab2 As WinForm.TabControl = e.Form.Controls("TabControl2")
For Each tp As WinForm.TabPage In tab2.TabPages
If tp.Text = e.node.text Then
tab2.SelectedPage = tp
End If
Next