以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何判断目录树某一层是否有同名的节点  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82734)
--  作者：rjh4078
--  发布时间：2016/3/23 20:46:00
--  如何判断目录树某一层是否有同名的节点

如题

利用目录树做了个文件夹列表管理 现在想实现 如果在某一层有同名的节点就提示用户

比如第一层 节点level是0  如果在第0层出现同名节点就提示用户 同理 在N层出现同名节点也提示用户 但是在不同层可以允许同名

比如第一层有foxtable文件夹 在第二层也可以有 在第三层也可以有 只要不在同层有就可以
--  作者：大红袍
--  发布时间：2016/3/23 21:00:00
--  

循环判断不就行了？比如代码

 

Dim pnd As Object

If e.Node.ParentNode Is Nothing Then
    pnd = e.Sender
Else
    pnd = e.node.ParentNode
End If
Dim count As Integer = 0
For Each nd As WinForm.TreeNode In pnd.Nodes
    If nd.Text = e.node.Text Then
        count += 1
    End If
Next
msgbox(count)