validateEdit事件
If e.Col.name = "第二列" Then
Dim d1 As Date = e.Row("第一列")
d1 = new Date(1900, 1, 1, d1.Hour, d1.Minute, d1.Second)
Dim d2 As Date = e.text
d2 = new Date(1900, 1, 1, d2.Hour, d2.Minute, d2.Second)
Dim sp As TimeSpan = d2-d1
If sp.TotalHours < 6 Then
e.cancel = True
msgbox("不满足")
End If
End If