目录树-节点删除 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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()

怎么改成, 当下一级节点存在的时候,禁止删除呢?

就是, 当二类下面存在三类的时候,禁止直接删除二类.

主题：目录树-节点删除