以文本方式查看主题

-  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=53408)

--  作者:lesliecheung912
--  发布时间:2014/7/7 13:19:00
--  [求助]目录树
我只想删除当前节点,现在代码为:
Dim Result As DialogResult
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
If nd.Nodes.Count = 0 Then
    Result = MessageBox.Show("确定删除?", "警告", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        nd.Delete()
        End If
        tr.Select
end if
这样为啥不管用呢?

--  作者:Bin
--  发布时间:2014/7/7 15:16:00
--  
你判断了 If nd.Nodes.Count = 0 Then 只有在  字节点=0的情况下才会执行.
--  作者:lesliecheung912
--  发布时间:2014/7/7 15:37:00
--  
这个不是判断当前节点是不是最底层节点的吗?对于目录树节点的删除会有影响吗?
--  作者:Bin
--  发布时间:2014/7/7 15:40:00
--  
那你选择的不是最底层,不就删不了了嘛.
--  作者:lesliecheung912
--  发布时间:2014/7/7 15:45:00
--  
我选择的是最底层啊
--  作者:Bin
--  发布时间:2014/7/7 15:47:00
--  
上例子我看看
--  作者:lesliecheung912
--  发布时间:2014/7/7 16:18:00
--  
外部表不方便上传,见谅
--  作者:Bin
--  发布时间:2014/7/7 16:20:00
--  
做个简单例子发上来
--  作者:lesliecheung912
--  发布时间:2014/7/7 16:51:00
--  
您看看,可能有很多不合理的地方,主要是删除那块具体应该怎么写
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:目录树.foxdb


--  作者:Bin
--  发布时间:2014/7/7 16:54:00
--  
我测试没有问题啊,可以正常删除节点啊? 你的意思是无法保存吗?

你是根据表生成的目录树,你要保存你得连表的行也删除才可以哦.