主题：逻辑列运算

表A DataColChanged 事件

If e.DataCol.name = "第一列" OrElse e.DataCol.name = "ddd" Then
    Dim drs As List(Of DataRow) =e.DataRow.GetChildRows("表B")
    If drs.Count = 0 Then
        e.DataRow("ddd") = False
    Else
        Dim flag As Boolean = True
        For Each dr As DataRow In drs
            If dr("qq") = False Then
                flag = False
                Exit For
            End If
        Next
        e.DataRow("ddd") = flag
    End If
End If

表B DataColChanged 事件

If e.datacol.name = "qq" then
    DataTables("表A").DataCols("ddd").RaiseDataColChanged("第一列 = '" & e.DataRow("第一列") & "'")
End If