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