示例四
假定订单和订单明细表都有一个名为“审核”的列,逻辑型。
当某个订单的所有订单明细全部通过审核后,此订单也自动审核通过,当某订单的任何一个订单明细取消审核后,此订单也自动取消审核。
为此可以将订单明细表的DataColChanged事件代码设置为:
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
在实施时,pr("审核") = (crs.Count = cnt)实现不了,要重置审核列才能实现。请老师指导。