主题：关于datarow的getchildrow

Dim drs As List(of DataRow)
drs=CurrentTable.current.DataRow.getchildrows("收款明细表")
If drs IsNot Nothing
output.show("不为空")
For Each r As DataRow In drs
    output.show(r("登记号"))
Next
Else
output.show("为空")
End If

 

代码如上  现在发现一个问题 无论CurrentTable.current是否有关联子行 drs返回的值都是不为空啊

如果要判断某个父行是否有子行 还有其他的方法吗？

drs = DataTables("收款明细表").Select("[关联列] = '" & CurrentTable.current.DataRow("关联列") & "'")
If drs IsNot Nothing
……

计算明细表中与父表中某行的编号相同的记录数，一旦大于0就可以判断存在子行。

老程  按照你的方法试了也是不行

If drs.Count > 0

……

行了