- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 目录树节点问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184240)
-- 发布时间：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
-- 发布时间：2022/11/29 14:54:00
--
自己都写代码判断了只能有3级，把判断代码去掉咯
-- 发布时间：2022/11/29 15:00:00
--
这里提示我没改，上面的数字我已经改了
-- 发布时间：2022/11/29 15:02:00
--
节点增加没有问题了，，，
就是 这句获取上级组名的时候，，分组名和表名是一样的了，
ElseIf nd.Level = 2 Then
dr("分组名") = nd.ParentNode.Text
dr("表名") = nd.ParentNode.Text
dr("列名") = nd.text
dr("导航按钮") = "新节点"
-- 发布时间：2022/11/29 15:05:00
--
dr("分组名") = nd.ParentNode.ParentNode.Text
-- 发布时间：2022/11/29 15:24:00
--
谢谢老师，，又学了一招，，谢谢，现在就是分组和表名直接用代码生成过来，还是没有学会，，麻烦老师给写一下，我在窗口增加了一个生成按钮，需要怎么写，，上次你发了一个遍历的帮助看了好久没弄出来，，，希望老师给写一下
此主题相关图片如下：1669706552502.png
-- 发布时间：2022/11/29 15:45:00
--
没看懂要做什么
-- 发布时间：2022/11/29 16:39:00
--
生成授权按钮，，，把user表的角色生成到分组名里面，所有表生成到表名里面，表里的列名生成到目录树列表，
-- 发布时间：2022/11/29 16:43:00
--
参考：http://www.foxtable.com/webhelp/topics/2244.htm
-- 发布时间：2022/11/29 16:45:00
--
老师大概就是这个意思，，
此主题相关图片如下：1669711405541.png