主题：有重名的无法添加nd.Level节点，如何实现

AfterEditNode 事件

Dim pn = e.node.ParentNode
If pn Is Nothing Then pn = e.sender
For Each nd As object In pn.nodes
    If nd.text=e.NewText AndAlso nd.name <> e.node.name Then
        msgbox("节点重复")
        e.cancel = True
        Return
    End If
Next