|
If e.DataCol.Name = "计划开始时间" AndAlso e.NewValue <> Nothing Then '不能小于计划开始时间
Dim pr As DataRow = DataTables("某表").find("某列 = '" & e.DataRow("某列") & "'")
If pr IsNot Nothing Then
If e.NewValue < pr("计划开始时间")
Messagebox.Show("此处时间 不能小于项目总策划的 计划开始时间","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.DataRow("计划开始时间") = Nothing
e.cancel = True
End If
Else
msgbox("没找到")
End If
End If
|
加好友 
发短信
Post By：2016/8/29 10:56:00 [显示全部帖子]
