主题：请教目录树

请教大师：

AfterEditNode 代码改一下,利用FIND查找是否已经存在节点

If e.NewText = "" Then

    e.Cancel = True

    Return

End If

Dim pth() As String = e.Node.FullPath.Split("\")

Dim dr As DataRow

Select Case e.node.Level

    Case 0

        dr= DataTables("表A").Find("大类 = '" & e.NewText & "'")

        If dr Is Nothing Then

            DataTables("表A").ReplaceFor("大类",e.NewText,"大类 = '" & pth(0) & "'")

        Else

            MessageBox.show("已存在该节点")

            e.Cancel=True

        End If

    Case 1

        dr= DataTables("表A").Find("大类 = '" & pth(0) & "' And 二类 = '" & e.NewText & "'")

        If dr Is Nothing Then

            DataTables("表A").ReplaceFor("二类",e.NewText,"大类 = '" & pth(0) & "' And 二类 = '" & pth(1) & "'")

        Else

            MessageBox.show("已存在该节点")

            e.Cancel=True

        End If

    Case 2

        dr= DataTables("表A").Find("大类 = '" & pth(0) & "' And 二类 = '" & pth(1) & "' And 三类 = '" & e.NewText & "'")

        If dr Is Nothing Then

            DataTables("表A").ReplaceFor("三类",e.NewText,"大类 = '" & pth(0) & "' And 二类 = '" & pth(1) & "' And 三类 = '" & pth(2) & "'")

        Else

            MessageBox.show("已存在该节点")

            e.Cancel=True

        End If

End Select

e.Node.Name = e.NewText

谢谢：老大

请问：点击对话框“已存在该节点”后如何回到重命名的节点？

另外：请问当发现插入的节点是存在时自动删除该插入的节点，如何搞？

最后加上

 

e.Sender.SelectedNode = e.Node

还是不能返回此节点？

 

你说的返回此节点是什么意思？不是选中这个节点？

 

e.Sender.SelectedNode = e.Node

就是不返回选中的节点！

不是很理解你的意思,能否换个方式解释一下.