如何用代码判断treeview 同一节点下不能有重复值？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何用代码判断treeview 同一节点下不能有重复值？

共有2931人关注过本帖树形打印复制链接主题：如何用代码判断treeview 同一节点下不能有重复值？

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/10/17 22:21:00 [显示全部帖子]

遍历所有子节点，逐个判断。

比如判断选中的节点

Dim tr As WinForm.TreeView
tr = Forms("窗口1").Controls("TreeView1")
Dim td As WinForm.TreeNode = tr.SelectedNode

dim lst as new list(of string)

for each dd as WinForm.TreeNode in td.nodes

if lst.contains(dd.text) then

msgbox("重复节点：" & dd.text)

else

lst.add(dd.text)

end if

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/10/18 10:17:00 [显示全部帖子]

那就在增加之前就遍历判断呀

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/10/18 10:31:00 [显示全部帖子]

……

Dim trv As WinForm.TreeView = e.Sender

Dim ns = trv.nodes

If e.node.ParentNode IsNot Nothing Then

ns = e.node.ParentNode.nodes

End If

For Each nd As WinForm.TreeNode In ns

If nd.FullName <> e.Node.FullName AndAlso nd.Text = e.NewText Then

messagebox.show("有重复名称","信息提示")

e.cancel=True

……

主题：如何用代码判断treeview 同一节点下 不能有重复值？