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()
怎么改成, 当下一级节点存在的时候,禁止删除呢?
就是, 当二类 下面 存在三类 的时候,禁止直接删除二类.