如何判断树状节点没有子节点？（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3661人关注过本帖树形打印复制链接主题：如何判断树状节点没有子节点？（已解决）

jiterp

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：715 积分：8574 威望：0 精华：0 注册：2011/11/13 15:49:00

如何判断树状节点没有子节点？（已解决） 发帖心情

Post By：2015/1/10 17:21:00 [显示全部帖子]

我是想实现这样一个功能，删除一个树状节点，要检测一下该节点原上节点是否还有子节点，如果没有，则原上节点有个逻辑字段为TRUE.

需要怎么写代码？

[此贴子已经被作者于2015-1-11 21:32:32编辑过]

jiterp

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：715 积分：8574 威望：0 精华：0 注册：2011/11/13 15:49:00

Post By：2015/1/10 17:37:00 [显示全部帖子]

不会弄，还是做个实例让老师帮忙，谢谢。

要求点删除后，检测该节点上一节点如果没有子节点，由上一节点的是否末阶为TRUE.

下载信息 [文件大小：下载次数： ]
点击浏览该文件:编码规则.foxdb

jiterp

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：715 积分：8574 威望：0 精华：0 注册：2011/11/13 15:49:00

Post By：2015/1/10 20:44:00 [显示全部帖子]

确实不会呀，不知道怎么做，求教了。

jiterp

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：715 积分：8574 威望：0 精华：0 注册：2011/11/13 15:49:00

Post By：2015/1/10 21:12:00 [显示全部帖子]

以下是引用游在2015-1-10 20:49:00的发言：
你删除节点的代码呢？

以下代码不起作用呀

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = Forms("窗口1").Controls("TreeView1")

If nd.Nodes.count = 1 Then
Tables("部门档案").Current("是否末级") = True
Tables("部门档案").Current.Delete
End If

[此贴子已经被作者于2015-1-10 21:30:25编辑过]

jiterp

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：715 积分：8574 威望：0 精华：0 注册：2011/11/13 15:49:00

Post By：2015/1/11 21:32:00 [显示全部帖子]

以下是引用有点甜在2015-1-11 11:10: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 IsNot Nothing Then
    If fnd.Nodes.Count = 1 Then
        fnd.DataRow("是否末级") = True
    End If
End If
nd.DataRow.DataTable.DeleteFor("tree = '" & nd.DataRow("tree") & "' or tree like '" & nd.DataRow("tree") & ".%'")
nd.Delete

这是正解，谢谢甜版！

下一主题 >> << 上一主题

主题：如何判断树状节点没有子节点？（已解决）