If e.DataCol.Name = "计划开始时间" AndAlso e.NewValue <> Nothing Then
msgbox(1)
Dim pr As DataRow = e.DataRow.GetParentrow("投标策商任务书")
msgbox(2)
If e.NewValue < pr("计划开始时间") Then
msgbox(3)
Dim drs As List(Of DataRow) = e.DataRow.GetChildRows("投标商务主表")
msgbox(drs.count & "abc")
For Each dr As DataRow In drs
Dim result As DialogResult
result = MessageBox.Show("不能小于总策划的'计划开始时间'", "提示",MessageBoxButtons.YesNo, MessageBoxIcon.Question)
e.DataRow("计划开始时间") = Nothing
e.cancel = True
Exit For
Next
End If
End If
加好友 
发短信
Post By：2016/7/11 11:59:00 [只看该作者]
