Foxtable(狐表)用户栏目专家坐堂 → 目录树节点问题


  共有4364人关注过本帖树形打印复制链接

主题:目录树节点问题

帅哥哟,离线,有人找我吗?
wlj88868
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:109 积分:815 威望:0 精华:0 注册:2016/4/27 9:39:00
目录树节点问题  发帖心情 Post By:2022/11/29 14:49:00 [只看该作者]

老师目录树不可以设置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


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/29 14:54:00 [只看该作者]

自己都写代码判断了只能有3级,把判断代码去掉咯

 回到顶部
帅哥哟,离线,有人找我吗?
wlj88868
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:109 积分:815 威望:0 精华:0 注册:2016/4/27 9:39:00
  发帖心情 Post By:2022/11/29 15:00:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
wlj88868
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:109 积分:815 威望:0 精华:0 注册:2016/4/27 9:39:00
  发帖心情 Post By:2022/11/29 15:02:00 [只看该作者]

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

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

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


 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/29 15:05:00 [只看该作者]


            dr("分组名") = nd.ParentNode.ParentNode.Text
[此贴子已经被作者于2022/11/29 15:05:05编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
wlj88868
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:109 积分:815 威望:0 精华:0 注册:2016/4/27 9:39:00
  发帖心情 Post By:2022/11/29 15:24:00 [只看该作者]

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

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/29 15:45:00 [只看该作者]

没看懂要做什么

 回到顶部
帅哥哟,离线,有人找我吗?
wlj88868
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:109 积分:815 威望:0 精华:0 注册:2016/4/27 9:39:00
  发帖心情 Post By:2022/11/29 16:39:00 [只看该作者]

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

 


 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/11/29 16:43:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
wlj88868
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:109 积分:815 威望:0 精华:0 注册:2016/4/27 9:39:00
  发帖心情 Post By:2022/11/29 16:45:00 [只看该作者]

老师大概就是这个意思,,
图片点击可在新窗口打开查看此主题相关图片如下:1669711405541.png
图片点击可在新窗口打开查看

 回到顶部
总数 25 1 2 3 下一页