以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  怎么写代码判断子表字段全部完成为true,设置主表完成为true  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=116185)
--  作者：xxfoxtable
--  发布时间：2018/3/21 0:34:00
--  怎么写代码判断子表字段全部完成为true,设置主表完成为true
一对多关系，在操作子表字段“完成”为true时,当关联明细全部是完成了，设置主表完成也为true   他们之间有id做关联，怎么写代码比较高效？
--  作者：有点甜
--  发布时间：2018/3/21 9:17:00
--  

参考 示例四 http://www.foxtable.com/webhelp/scr/2649.htm

 

 
--  作者：xxfoxtable
--  发布时间：2018/3/21 18:04:00
--  
我的是模拟关联，不是真关联，这样写不行
--  作者：有点甜
--  发布时间：2018/3/21 21:29:00
--  

适当修改代码

 

If e.DataCol.name = "审核" Then
    Dim pr As DataRow = DataTables("订单").find("编号 = \'" & e.DataRow("编号") & "\'")
    If pr IsNot Nothing Then
        Dim crs As List(of DataRow) = e.DataTable.Select("编号 = \'" & e.DataRow("编号") & "\'")
        Dim cnt As Integer
        For Each cr As DataRow In crs
            If cr("审核") = True
                cnt = cnt + 1
            End If
        Next
        pr("审核") = (crs.Count = cnt)
    End If
End If