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

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

需要怎么写代码？

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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:编码规则.foxdb

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

以下代码不起作用呀

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

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

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