主题：目录树管理表

目录树管理表的功能你如何做的？

生成目录树的时候你是写代码还是怎么设置处理的？

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

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

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

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

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

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

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")

For Each dr As DataRow In DataTables("授权表").Select("用户名 = '" & User.Name & "' and  列名 is null and 不可见=true" )
    For Each cnd As WinForm.TreeNode In trv.allnodes
        If cnd.name = dr("表名") Then
            cnd.delete
            exit for
        end if
    next
Next