请问有没有判断某节点有无子节点的函数
案例：
由单列生成的目录，以“-”作为分隔符
如下面单列
照片
照片框-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
Next
nd.Text = nd.text
&
"("
&
sum
&
")"
问题得到了解决。
如果有可以判断是否有子节点的函数，那么就可以用以下方法更简洁
一级节点无子节点，直接用 “=” ly
如有子节点，用包括 ly
& “-”
在点击节点筛选行时还更方便一些
请老师指点！谢谢！
加好友 
发短信
Post By：2020/9/15 9:59:00 [只看该作者]
