主题：目录树-节点删除

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd IsNot Nothing Then
    Dim pth() As String = nd.FullPath.Split("\")
    Select Case nd.Level
    Case 0
        DataTables("表A").DeleteFor("大类 = '" & pth(0) & "'")
    Case 1
        DataTables("表A").DeleteFor("大类 = '" & pth(0) & "' And 二类 = '" & pth(1) & "'")
    Case 2
        DataTables("表A").DeleteFor("大类 = '" & pth(0) & "' And 二类 = '" & pth(1) & "' And 三类 = '" & pth(2) & "'")
    End Select
    nd.Delete()
End If
tr.Select()

Case 0
    If nd.Nodes.Count = 0 Then
        DataTables("表A").DeleteFor("大类 = '" & pth(0) & "'")
        nd.delete
    Else
        msgbox("禁止删除")
    End If

 

 或者

 

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd IsNot Nothing Then
    If nd.Nodes.Count = 0 Then
        Dim pth() As String = nd.FullPath.Split("\")
        Select Case nd.Level
            Case 0
                DataTables("表A").DeleteFor("大类 = '" & pth(0) & "'")
            Case 1
                DataTables("表A").DeleteFor("大类 = '" & pth(0) & "' And 二类 = '" & pth(1) & "'")
            Case 2
                DataTables("表A").DeleteFor("大类 = '" & pth(0) & "' And 二类 = '" & pth(1) & "' And 三类 = '" & pth(2) & "'")
        End Select
       
        nd.Delete()
    Else
        msgbox("不能删除")
    End If
End If
tr.Select()

if e.node.nodes.count > 0 then

3Q