主题：目录树与数据表（增加根节点和子节点问题？）

If nd IsNot Nothing Then

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

    Select Case nd.Level

        Case 0

            DataTables("表A").DeleteFor("大类 = '" & pth(0) & "' and 第四列 is null and 第五列 is null")

        Case 1

            DataTables("表A").DeleteFor("大类 = '" & pth(0) & "' And 二类 = '" & pth(1) & "' and 第四列 is null and 第五列 is null")

        Case 2

            DataTables("表A").DeleteFor("大类 = '" & pth(0) & "' And 二类 = '" & pth(1) & "' And 三类 = '" & pth(2) & "' and 第四列 is null and 第五列 is null")

    End Select

    nd.Delete()

End If