- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于datarow的getchildrow (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20261)
-- 发布时间：2012/6/2 17:08:00
-- 关于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返回的值都是不为空啊
如果要判断某个父行是否有子行 还有其他的方法吗？
-- 发布时间：2012/6/2 17:15:00
--
drs = DataTables("收款明细表").Select("[关联列] = \'" & CurrentTable.current.DataRow("关联列") & "\'")
If drs IsNot Nothing
……
-- 发布时间：2012/6/2 17:17:00
--
计算明细表中与父表中某行的编号相同的记录数，一旦大于0就可以判断存在子行。
-- 发布时间：2012/6/2 17:31:00
--
老程 按照你的方法试了也是不行
-- 发布时间：2012/6/2 17:37:00
--
If drs.Count > 0
……
-- 发布时间：2012/6/2 18:54:00
--
行了 