主题：逻辑列勾选

此主题相关图片如下：1.png

订单明细表里的所有5项已完成都打钩后， 订单主表里的已完成自动打钩
订单明细表里的所有5项已完成都打钩后， 订单主表里的已完成自动打钩， 发现订单明细表里有一项未完成，去掉勾后订单主表的已完成自动去掉勾勾

发错了

现在订单明细表的DataColChanged的代码为：

'订单明细表里的所有项已完成都打钩后, 订单主表里的已完成自动打钩
'订单明细表里的所有项已完成都打钩后, 订单主表里的已完成自动打钩, 发现订单明细表里有一项未完成,去掉勾后订单主表的已完成自动去掉勾勾
If e.DataCol.name="已完成" Then
   Dim rlist As List(of DataRow)=e.DataTable.Select("订单序列号='" & e.DataRow("订单序列号") & "'and 已完成=true")
   If rlist.count=e.DataTable.Select("订单序列号='" & e.DataRow("订单序列号") &"'").count Then
     e.DataRow.GetParentRow("订单主表")("已完成")=True
    Else
      e.DataRow.GetParentRow("订单主表")("已完成")=False
   End If
End If

-----------------------------------------------------

问题：订单明细表一旦新增数据， 订单主表的已完成就自动打钩了，

---------------------------------------------------------------

要求：只有订单明细表里的已完成列都打钩后，订单主表的已完成列才能自动打钩

我重做了个列子， 发现代码是好的，没有出现新增订单明细表的行主表就自动打钩， 那么为什么会出现这个情况呢， 是其他代码引起的吗

这个代码还有一个问题， 就是订单明细表新增数据， 订单主表的勾勾自动取消， 但是如果删除新增的数据， 订单主表的勾勾没有自动打钩

订单明细表的代码如下：

If e.DataCol.name="已完成" Then
    Dim rlist As List(of DataRow)=e.DataTable.Select("工作号='" & e.DataRow("工作号") & "'and 已完成=true")
    If rlist.count=e.DataTable.Select("工作号='" & e.DataRow("工作号") &"'").count Then
        e.DataRow.GetParentRow("订单主表")("已完成")=True
    Else
        e.DataRow.GetParentRow("订单主表")("已完成")=False
    End If
End If

If e.DataCol.name="已下单" Then
    Dim xdList As List(of DataRow)=e.DataTable.Select("工作号='" & e.DataRow("工作号") & "'and 已下单=true")
    If xdList.count=e.DataTable.Select("工作号='" & e.DataRow("工作号") &"'").count Then
        e.DataRow.GetParentRow("订单主表")("已下单")=True
    Else
        e.DataRow.GetParentRow("订单主表")("已下单")=False
    End If
End If

If e.DataCol.name="已发货" Then
    Dim fhList As List(of DataRow)=e.DataTable.Select("工作号='" & e.DataRow("工作号") & "'and 已发货=true")
    If fhList.count=e.DataTable.Select("工作号='" & e.DataRow("工作号") &"'").count Then
        e.DataRow.GetParentRow("订单主表")("已发货")=True
    Else
        e.DataRow.GetParentRow("订单主表")("已发货")=False
    End If
End If