主题：跨表勾选？

If e.DataCol.name = "审核" Then

Dim pr As DataRow = e.DataRow.GetParentRow("订单")

If pr IsNot Nothing Then

Dim crs As List(of DataRow) = pr.GetChildRows("订单明细")

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

订单表和订单明细表关联，当订单表中的未付列为0时，勾选审核列同时勾选订单明细表中的审核列，想根据上面代码修改，不知可以吗？