父表中行的复选框选中后，自动选中关联表中的所有行的复选框

请问这代码应该怎么写

父表的DataColChanged事件：
 
For Each dr As DataRow In e.DataRow.GetChildRows("子表名称")
    dr("逻辑列名称") = True
Next

参考：

http://www.foxtable.com/help/topics/2649.htm

不论两表是否关联，只要B表的某一列与A表的某一列类型相同，且是多对一的关系，因为不一定要复选B表中的所有行，最好加上条件判断：

在A表的AfterCheckRow事件中，代码如下：

For Each r As Row In Tables("B表").Rows
    If r("编号") = e.Row("编号") Then
        r.Checked = e.Row.Checked
    Else
        Continue For
    End If
Next