一样使用GetChildRows
Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("工作任务明细")
For Each dr As DataRow In drs If e.NewValue < dr("分工完成时间") Then msgbox("不能小于'分工完成时间'") e.cancel = True End IfNext