以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]DataColChanged  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82799)
--  作者：yupeng
--  发布时间：2016/3/24 23:45:00
--  [求助]DataColChanged

父表的DataColChanged事件 代码如下

 

If e.DataRow("裁数审核") = True
Tables("生产进度表.裁数明细").Current("裁数审核") = True
End If

 

要求效果： 当父表的当行前裁数审核列=True时  子表的所有行的裁数审核列也=True

 

以前子表只有第一行达到要求，请问是哪里没有搞好？谢谢
--  作者：Hyphen
--  发布时间：2016/3/25 8:43:00
--  
方法一，DataTables("裁数明细").ReplaceFor("裁数审核", True, "[关联列] = \'" & e.DataRow("关联列") & "\'")


方法二，
Dim drs As List(Of Datarow)
drs = e.DataRow.GetChildRows("裁数明细")
For Each dr As DataRow In drs
    dr("裁数审核") = true
Next