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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 目录树管理表

共有2180人关注过本帖树形打印复制链接主题：目录树管理表

13775189031

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

加好友

发短信

等级：四尾狐帖子：870 积分：6018 威望：0 精华：0 注册：2017/12/19 14:46:00

目录树管理表 发帖心情

Post By：2018/6/27 16:21:00 [显示全部帖子]

请教：

用目录树管理表，按教程做了个窗口进行表分类，但发现有一个问题

就是授权表里设置了某些人不可见的表，在表分类窗口中点击是可以打开的！

该如何处理，在表分类窗口里也不能打开不可见的表，或者直接在表分类里就不可见这些表？

13775189031

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

加好友

发短信

等级：四尾狐帖子：870 积分：6018 威望：0 精华：0 注册：2017/12/19 14:46:00

Post By：2018/6/27 16:49:00 [显示全部帖子]

按教程里做的——用目录树管理表

要实现这样的功能很简单，设计步骤：

1、新建一个窗口，窗口类型设置为共享，停靠区域设置为左。

2、在窗口增加一个TreeView控件，停靠属性设置为Fill。

3、窗口的AfterLoad事件代码设置为：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode
nd = Trv.Nodes.Add("分类1","分类1")
nd.Nodes.Add("表A")
nd.Nodes.Add("表B")
nd.Nodes.Add("表C")
nd = Trv.Nodes.Add("分类2","分类2")
nd.Nodes.Add("表D")
nd.Nodes.Add("表E")

4、TreeView控件的NodeMouseClick事件代码设置为：

If e.Node.Level = 1 Then
MainTable = Tables(e.Node.Text)
End If

13775189031

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

加好友

发短信

等级：四尾狐帖子：870 积分：6018 威望：0 精华：0 注册：2017/12/19 14:46:00

Post By：2018/6/28 15:47:00 [显示全部帖子]

ok！谢谢！

下一主题 >> << 上一主题

主题：目录树管理表