主题：[求助]代码冲突代码修改

1.表A分别与表B、表C关联,
2.表B中逻辑列"转表C"打勾后,自动将相关内容自动转表C,
3.表C中逻辑列"发货"全打勾后,表A中逻辑列"全发货"将自动打勾(如果表C中有一行不打勾,表A中"全发货"就会自动退勾

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:代码冲突.table

改一下表C的代码

If e.DataCol.name="发货" AndAlso e.DataRow.GetParentRow("表A") IsNot Nothing Then
    Dim rlist As List(of DataRow)=e.DataTable.Select("A='" & e.DataRow("A") & "' and 发货=true")
    If rlist.count=e.DataTable.Select("A='" & e.DataRow("A") &"'").count Then
        e.DataRow.GetParentRow("表A")("全发货")=True
    Else
        e.DataRow.GetParentRow("表A")("全发货")=False
    End If
End If