[求助]目录树有没有判断某节点有无子节点的函数？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问有没有判断某节点有无子节点的函数

案例：
由单列生成的目录，以“-”作为分隔符
如下面单列
照片
照片框-A
照片框-B

如目录后还有括号统计数量

Dim ly As String = nd.text

nd.Text = nd.text & "(" & dt.Compute("Sum(数量)","[类别] like '" & ly & "%" & "'") & ")"

显然：
列包括“照片”是存在漏洞，会将“照片框”也统计在内
列开始位置包括“照片”也存在漏洞，会将“照片框”也统计在内
如是列结束位置，照片框又不能统计

所以改用了数组

Dim sum As Integer = 0

Dim drs As List(Of DataRow)

drs = DataTables("文物明细表").Select("[类别] like '" & ly & "%" & "'")

For Each dr As DataRow In drs

Dim names() As String

names = dr("类别").split("-")

If names(0) = nd.text Then

sum = sum + dr("数量")

End If

nd.Text = nd.text & "(" & sum & ")"

问题得到了解决。

如果有可以判断是否有子节点的函数，那么就可以用以下方法更简洁

一级节点无子节点，直接用 “=” ly

如有子节点，用包括 ly & “-”

在点击节点筛选行时还更方便一些

请老师指点！谢谢！

主题：[求助]目录树有没有判断某节点有无子节点的函数？