- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 怎样删除目录树节点同时删除表中对应的行 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=16562)
-- 发布时间：2012/2/17 14:12:00
-- 怎样删除目录树节点同时删除表中对应的行
“窗口1”中的“删除节点”按钮，只能删除目录树中的节点，但不能同时删除表中对应的行,请师傅帮修改以下，谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树.table |
-- 发布时间：2012/2/17 14:17:00
--
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd IsNot Nothing Then
If nd.Level = 0 Then
DataTables("产品").DeleteFor("ID = \'" & nd.text & "\'")
ElseIf nd.Level = 1 Then
DataTables("产品").DeleteFor("ID = \'" & nd.ParentNode.text & "\' And 名称 = \'" & nd.Text & "\'")
End If
nd.Delete
End If
tr.Select
-- 发布时间：2012/2/17 14:37:00
--
谢谢贺老师！