TreeView控件筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2169人关注过本帖树形打印复制链接主题：TreeView控件筛选

yifan3429

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：九尾狐帖子：2473 积分：22829 威望：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编辑过]

yifan3429

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：九尾狐帖子：2473 积分：22829 威望：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 & "'","" )

搞定了但是需要简化下代码求教老师高手们

主题：TreeView控件筛选