StartEdit
If e.Col.Name = "完成时间" Then
Dim drs As List(Of DataRow) = e.Table.Current.DataRow.GetChildRows("工作任务明细")
If drs.Count = 0 Then
Messagebox.Show("先填写工作任务明细!","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
e.Cancel = True
Return
End If
For Each dr As DataRow In drs
If dr.IsNull("分工安排时间") OrElse dr.IsNull("分工完成时间") Then
Messagebox.Show("先填写分工安排时间或分工完成时间!","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
e.Cancel = True
Return
End If
Next
End If