Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如何在主窗口导航栏中同一目录树下管理多个表


  共有2008人关注过本帖树形打印复制链接

主题：[求助]如何在主窗口导航栏中同一目录树下管理多个表
帅哥哟，离线，有人找我吗？
清谷
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：45 积分：647 威望：0 精华：0 注册：2016/1/5 9:48:00 		[求助]如何在主窗口导航栏中同一目录树下管理多个表  发帖心情 Post By：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）的代码应如何设置？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试项目.zip


[此贴子已经被作者于2017/7/6 11:46:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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)
 回到顶部
帅哥哟，离线，有人找我吗？
清谷
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：45 积分：647 威望：0 精华：0 注册：2016/1/5 9:48:00 		回复：（有点甜）1、做一个表输入你要生成的目录树数据...  发帖心情 Post By：2017/7/6 11:45:00 [只看该作者]

没有效果，不懂哪个环节出错？
能否请老师指导一下？
附件已上传。
[此贴子已经被作者于2017/7/6 11:45:26编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/6 11:47:00 [只看该作者]

 没看到附件，具体例子发上来看看。
[此贴子已经被作者于2017/7/6 11:47:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
清谷
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：45 积分：647 威望：0 精华：0 注册：2016/1/5 9:48:00 		回复：（有点甜） 没看到附件，具体例子发上来看...  发帖心情 Post By：2017/7/6 11:53:00 [只看该作者]

附件在一楼，请查阅。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 5 次数据查询