主题：目录树节点问题

老师目录树不可以设置4级的吗，，，我设计的4级，第一级的名称和第2级的一样的

 

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("TreeView1")
nd = tr.SelectedNode
If nd IsNot Nothing Then
    If nd.Level = 3 Then
        MessageBox.Show("最多允许三层节点!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
    Else
        Dim dr As DataRow = DataTables("授权").AddNew
        If nd.Level = 0 Then
            dr("分组名") = nd.Text
            dr("表名") = "新节点"
        ElseIf nd.Level = 1 Then
            dr("分组名") = nd.ParentNode.Text
            dr("表名") = nd.text
            dr("列名") = "新节点"
        ElseIf nd.Level = 2 Then
            dr("分组名") = nd.ParentNode.Text
            dr("表名") = nd.ParentNode.Text
            dr("列名") = nd.text
            dr("导航按钮") = "新节点"
        End If
        nd = nd.Nodes.Add("新节点")
        tr.SelectedNode = nd
        tr.Select()
        tr.BeginEdit()
    End If
End If
DataTables("授权").Save

这里提示我没改，上面的数字我已经改了

节点增加没有问题了，，，

就是  这句获取上级组名的时候，，分组名和表名是一样的了，

      ElseIf nd.Level = 2 Then
            dr("分组名") = nd.ParentNode.Text
            dr("表名") = nd.ParentNode.Text
            dr("列名") = nd.text
            dr("导航按钮") = "新节点"

谢谢老师，，又学了一招，，谢谢，现在就是分组和表名直接用代码生成过来，还是没有学会，，麻烦老师给写一下，我在窗口增加了一个生成按钮，需要怎么写，，上次你发了一个遍历的帮助看了好久没弄出来，，，希望老师给写一下
此主题相关图片如下：1669706552502.png

生成授权按钮，，，把user表的角色生成到分组名里面，所有表生成到表名里面，表里的列名生成到目录树列表，

 

老师大概就是这个意思，，
此主题相关图片如下：1669711405541.png

麻烦老师给调试一下，，

问题1，目录树的生成

问题2，登入分组名控制导航栏的按钮，，

问题3，登入上面的欢笑词，，user表没有加载，，上面的操作人后面的名字不见了

麻烦老师了

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2022-10-25开发.rar

此主题相关图片如下：1669712007790.png

老师目录树设置好了，，，，就是授权表的数据不是要一个一个打进去吗，，，我的意思是把授权表的数据直接做一个生成按钮，，把表的数据更新一下，，按目录树要求的3级生成

导航栏要求是，，授权表这里不是设置了不可见，不可编辑码，，比如区域经理登入，勾选不可见的，导航栏的这个按钮就隐藏了，这样每一个用户登入用户根据授权表这里的这设定给予授权

老师这里用usergroup可以了，，我要是改为用户角色，要什么改一下，谢谢
此主题相关图片如下：1669791930456.png

Public _UserName As String
Public _UserGroup As String
Public _UserTable As DataTable
Public _user用户角色 As String

 

老师全局这里是这样写用户角色吗，，，

 

If DataTables("授权").Find("分组名='" & _user用户角色 & "' and 导航按钮='tjgl' and 不可见=true") IsNot Nothing Then
       e.Form.Controls("TopicBar1").Pages("tjgl").Visible = False
End If

 

窗口事件这样写，，好像不起作用哦