Dim rr As List (of DataRow) = e.DataRow.GetChildRows("待出单明细")
For Each r As DataRow In rr
    If r("是否交完") = True Then
        e.DataRow("是否结案") = True
    Else
        e.DataRow("是否结案") = False
    End If
Next

当子表中的逻辑列"是否交完"都为True的时候，父表中的逻辑列“是否结案”

这样写是否正确?我是放在beforesavedatarow里的

无反映。。。

楼主的逻辑出现了问题，看楼主的代码，明显是一对多的关系

当你的代码执行的时候，是只会按照最后一个子行的值来进行赋值的，所以不一定是你想要的结果

你代码的本意应该不是这样的吧

用compute计算一下为true的行数是不是与子表的总行数一样

根据这个返回值来判断是否结案

这样：

Dim rr As List (of DataRow) = e.DataRow.GetChildRows("待出单明细")
Dim cnt As Integer
For Each r As DataRow In rr
    If r("是否交完") = True Then
        cnt = cnt + 1
    End If
Next
e.DataRow("是否结案") = (rr.Count = cnt)