主题：请教目录树

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

If e.Cancel Then
    e.Node.Delete
Else
    e.Node.Name = e.NewText
End If

重命名为什么要删除，为什么要联动？

删除节点的时候，才会删除表数据。

-------------------------------------------

如果要实现删除的功能，可以参考删除按钮的代码去编写。