[求助]窗口多选目录树问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好。想实现：1、启动窗口后，窗口多选目录树（不是下拉那种）根据窗口文本框的内容，自动显示节点勾选结果；

2、在勾选各层级节点后，即时将所勾选的节点名称写入窗口的文本框内。

代码运行出错[未找到类型“TreeView”的公共成员“Value”。]。勾选节点也不能即写入窗口文本框。请老师帮助修正代码。谢谢。

一、窗口的AfterLoad事件代码：

Dim s As String = e.Form.Controls("TextBox5").Value '设置文本框的值

Dim nms As new List(of String)

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1") '目录树

If s > "" Then '如果文本框不为空

nms.AddRange(s.Split(",")) '增加多个值并在值之间插入分隔符

End If

For Each nd As WinForm.TreeNode In trv.AllNodes '遍历目录树节点(所有层级)

nd.Checked = nms.Contains(nd.text) '选中节点复选框时,判断集合中是否包含其值

If nd.Checked Then

s = s & "," & nd.Text

End If

trv.ExpandAll()

二、目录树AfterCheckNode事件代码：

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd As WinForm.TreeNode = trv.SelectedNode '选定的节点

'Dim dr As DataRow

If e.Node.ParentNode IsNot Nothing Then '取消父节点的选中标记,因为选中子节点,就不要选中父节点了

e.Node.ParentNode.Checked = False

End If

For Each cnd As WinForm.TreeNode In e.Node.Nodes '取消子节点的选中标记,因为选中父节点,就不要选中子节点了

cnd.Checked = False

Dim nms As String

For Each nd1 As WinForm.TreeNode In trv.AllNodes '遍历目录树所有层级的子节点

If nd1.Checked Then

nms = nms & "," & nd.Text

End If

e.Form.Controls("TextBox5").Value = nms.trim(",") '将选定节点名称写入文本框已修正

[此贴子已经被作者于2019/6/5 17:53:53编辑过]

红色的，应该是文本框名称吧？不是treeview控件的名称

e.Form.Controls("TreeView1_Page14").Value

谢谢老师，目录树名称，"TreeView1"

这一行应该是文本框的“e.Form.Controls("TextBox5").Value = nms.trim(",")

一楼已经修改。代码是从帮助示例中拼凑的，请老师费心修正。

[此贴子已经被作者于2019/6/5 17:44:26编辑过]

谢谢老师。按老师的指正将目录树AfterCheckNode事件代码中的“e.Form.Controls("TreeView1_Page14").Value”修改为“e.Form.Controls("TextBox5").Value = nms.trim(",") ” 后能勾选了，但是文本框中的内容是重复的（不管是几级节点，勾选几个就在文本框中显示几个最后勾选的那个节点）。请老师帮助指正。谢谢。

[此贴子已经被作者于2019/6/5 18:02:54编辑过]

nms = nms & "," & nd.Text

改成

nms = nms & "," & nd1.Text

老师好。按老师的指导，能勾选了，但还存在如下问题:

1、目录树不能随文本框中的内容变化而即时刷新改变节点勾选状态（即：文本框中有、目录树节点显示勾选；否则目录树不显示勾选）；

2、如果在目录树取消最后一个勾选（即没有选择）时，报错“未将对象引用设置到对象的实例。”，并且最后一个节点名称还存在于文本框中；

请老师帮助修改（一楼）代码。谢谢。

[此贴子已经被作者于2019/6/6 9:07:27编辑过]

请做一个具体事例发上来测试。

老师好。实例如下。

[此贴子已经被作者于2019/6/6 21:52:02编辑过]

老师好。还想实现如下功能。

1、当选择左边的用户名时，能判断该用户的“用户权限”文本框中具有那些权限，并即时在目录树相应节点中勾选显示；

2、目录树勾选须按“父－子”顺序勾选（即：选择了“父”，才能选择“子”），也就是有了“父权限”才能有“子权限”。取消目录树勾选时则按相反顺序，即取消全部“子权限”，才能取消“父权限”；

3、勾选“父权限”不能取消全部子权限，因为勾选了“父权限”并不意味着就能拥有“全部子权限”。相反，只要拥有一项“子权限”，即意味必定拥有“父权限”。

请老师帮助实现。谢谢。

主题：[求助]窗口多选目录树问题