| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- TreeView控件筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114627) |
| -- 作者：yifan3429 -- 发布时间：2018/2/11 16:01:00 -- TreeView控件筛选 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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2018/2/11 16:07:00 -- 什么问题？ |
| -- 作者：yifan3429 -- 发布时间：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 & "\'","" ) 搞定了 但是需要简化下代码 求教老师 高手们
|
| -- 作者：有点甜 -- 发布时间：2018/2/12 9:35:00 -- 已经是最优代码。 |