主题：目录树管理表

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

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

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