主题：[求助]我是小白，我想问一下这样的情况下代码要怎么写？

子表的DataColChanged事件：

If e.DataCol.name = "是否处理" Then
    Dim pr As DataRow= e.DataRow.GetParentRow("表A")
    If pr IsNot Nothing Then
        Dim crs As List(of DataRow) = pr.GetChildRows("表B")
        Dim cnt As Integer
        For Each cr As DataRow In crs
            If cr("是否处理") = True Then
                cnt = cnt + 1
            End If
        Next
        If cnt = crs.Count Then
            pr("是否处理") = True
        Else
            pr("是否处理") = False
        End If
    End If
End If