主题：逻辑列勾选

不应该啊,上个例子看看.

现在订单明细表的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

datarowDeleting事件

 

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

谢谢老师， 是写在订单明细表里的datarowDeleting事件吗？

是的。或者在datarowdeleted事件重置列。