Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何判断树状节点没有子节点？（已解决）


  共有3663人关注过本帖树形打印复制链接

主题：如何判断树状节点没有子节点？（已解决）
帅哥哟，离线，有人找我吗？
游
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：1916 威望：0 精华：0 注册：2014/8/24 13:36:00 		  发帖心情 Post By：2015/1/10 20:35:00 [显示全部帖子]

这个你还等别人帮着做啊？


你删除节点肯定有动作

在这个动作上，获取要删除的节点，判断父节点的子节点数Nd.Nodes.Count

如果等于1，就给父节点的是否末阶设为TRUE

再删除你要删除的节点
 回到顶部
帅哥哟，离线，有人找我吗？
游
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：1916 威望：0 精华：0 注册：2014/8/24 13:36:00 		  发帖心情 Post By：2015/1/10 20:49:00 [显示全部帖子]

你删除节点的代码呢？

 回到顶部
帅哥哟，离线，有人找我吗？
游
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：1916 威望：0 精华：0 注册：2014/8/24 13:36:00 		  发帖心情 Post By：2015/1/10 22:04:00 [显示全部帖子]


Dim tr As WinForm.TreeView

Dim nd As WinForm.TreeNode

Dim fnd As WinForm.TreeNode

tr = Forms("窗口1").Controls("TreeView1")

nd = tr.SelectedNode

fnd = nd.ParentNode

If fnd.Nodes.Count = 1 Then

    fnd.DataRow("是否末级") = True

    nd.DataRow.Delete

    nd.Delete

End If
 回到顶部
帅哥哟，离线，有人找我吗？
游
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：1916 威望：0 精华：0 注册：2014/8/24 13:36:00 		  发帖心情 Post By：2015/1/10 22:08:00 [显示全部帖子]

在家没狗，没测试，大概就是这样

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 5 次数据查询