主题：想用父表出发子表的表达式列的DataColChanged事件

父表（订单BC）有一个逻辑列（采购），子表（订单明细BC）有一个表达式列（采购）=父表的（采购）列，两个表通过（编码）列关联。

我想通过父表（采购）列的选中触发子表中对应行的DataColChanged事件，我看帮助自己弄出来的代码如下，但是不能正常工作，请帮忙修改一下。

另外，第三行的DataRows()的括号里面应该写什么？第五行不知道是不是只能用于判断数值或者字符列的，能否用于判断逻辑列？

谢谢！

If e.DataCol.Name = "采购" Then

    Dim crs As List(Of DataRow) 

    crs = DataTables("订单BC").DataRows().GetChildRows("订单明细BC") '找出"订单明细BC"表对应的子行

        If cr IsNot Nothing Then

            DataTables("订单明细BC").DataCols("采购").RaiseDataColChanged(cr)  '通知系统这些子行的采购列的选中状态发生了改变,触发DataColChanged事件

        End If

    Next

End If

红色代码改成数据列，不能用表达式列

 

If e.DataCol.Name = "采购" Then

    Dim crs As List(Of DataRow) 

    crs = DataTables("订单BC").DataRows().GetChildRows("订单明细BC") '找出"订单明细BC"表对应的子行

            DataTables("订单明细BC").DataCols("某列").RaiseDataColChanged(cr)  '通知系统这些子行的采购列的选中状态发生了改变,触发DataColChanged事件

    Next

End If

通过子表触发父表事件

还有一个特殊情况，表达式列并非由本表的列计算得出，而是由子表数据计算得出。
例如假定订单表有个数量列，是表达式列，用于累计订单明细表的数量，其表达式为： Sum(Child.数量)。
再假定订单表的DataColChanged事件设置了如下代码：

If e.Col.name = "数量" Then
  '相关计算代码 
End If

当我们在订单明细表输入数量时，订单表的数量会自动更新，但是上面的代码永远不会执行，因为数量是一个表达式列，不会触发事件。
我们需要在订单明细表的DataColChanged事件加上代码：

If e.Col.name = "数量" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("订单") '找出对应的父行
    If pr IsNot Nothing Then
        DataTables("订单").DataCols("数量").RaiseDataColChanged(pr)  '通知系统此父行的数量列发生了改变,触发DataColChanged事件
    End If
End If

如果这种办法行不通的话，那我就把子表的采购列改回数据列，然后通过您之前给的办法2，取得父表行的方法来实现父表选中子表也选中的目的，这样就能实现DataColChanged事件了吧？

在主表选中“采购”列，然后子表的“采购”列们也自动选中，接下来出发子表的DataColChanged事件，把子表的行复制到另一张表去（复制行的代码我已经测试过了，可以正常工作）。

我之前是采用子表”采购“列用表达式列引用父表的“采购”列，但是这样子表的DataColChanged事件不会被触发。

我选了第二个方向。

在主表“订单BC”的DataColChanged事件里面加上了如下代码

然后，我在主表的某行选中“采购”列，然后子表的关联行的“采购”列也都被选中了，而且子表的DataColChanged事件也成功被触发了。

多谢红版的启发，引用Bin版的一句经典的话：“实践出真知啊!”