Foxtable(狐表) → 用户栏目 → 专家坐堂 → TreeView控件筛选


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

主题：TreeView控件筛选
帅哥哟，离线，有人找我吗？
yifan3429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		TreeView控件筛选  发帖心情 Post By：2018/2/11 16:01:00 [只看该作者]

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

根据表 菜单目录  的 主菜单 列 筛选出   个人工作台
tr.BuildTree("菜单目录", "子菜单|菜单名")
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView2")
根据表 菜单目录  的 主菜单 列 筛选出   财务工作台
tr.BuildTree("菜单目录", "子菜单|菜单名")

代码 AfterLoad 生成时
根据TreeView2编号 首先从菜单目录表 的主菜单列  筛选出  财务工作台  的行
然后在 生成目录树 tr.BuildTree("菜单目录", "子菜单|菜单名")

根据TreeView编号 首先从菜单目录表 的主菜单列  筛选出  个人工作台  的行
然后在 生成目录树 tr.BuildTree("菜单目录", "子菜单|菜单名")

也就是多个 TreeView  生成不同目录树内容
[此贴子已经被作者于2018/2/11 16:37:46编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107440 积分：546479 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/2/11 16:07:00 [只看该作者]

什么问题？

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


加好友 发短信
等级：九尾狐 帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00 		  发帖心情 Post By：2018/2/11 23:05:00 [只看该作者]

Dim tr As WinForm.TreeView = e.Form.Controls("个人工作台")
tr.BuildTree("菜单目录", "子菜单|菜单名","[主菜单] = '个人工作台' And [岗位] = '" & User.Roles & "'","" )
Dim tr1 As WinForm.TreeView = e.Form.Controls("信息采集")
tr1.BuildTree("菜单目录", "子菜单|菜单名","[主菜单] = '信息采集' And [岗位] = '" & User.Roles & "'","" )
Dim tr2 As WinForm.TreeView = e.Form.Controls("线索转换")
tr2.BuildTree("菜单目录", "子菜单|菜单名","[主菜单] = '信息采集' And [岗位] = '" & User.Roles & "'","" )

搞定了  但是需要简化下代码  求教老师 高手们
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

已经是最优代码。

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询