主题：目录树删除

如果觉得不好把握，可以增加一个全局变量，命名为del
然后将目录树的NodeMouseClick事件设置成：

Dim Value()As String
Value = e.Node.FullPath.Split("\")
Select Case e.Node.Level
    Case 0
        Vars("del") = "[大类] = '" & Value(0) & "'"
    Case 1
        Vars("del") = "[大类] = '" & Value(0) & "' And [中类] = '" & Value(1) & "'"
    Case 2
        Vars("del") = "[大类] = '" & Value(0) & "' And [中类] = '" & Value(1) & "' And [小类] = '" & Value(2) & "'"
End Select

删除就可以是：DataTables("存货编号").DeleteFor(Vars("del"))