主题：日期判断

改用DataColChanging事件，代码：

Select Case e.DataCol.name
    Case "起始日期","结束日期"
        If e.DataRow.IsNull("起始日期") = False AndAlso e.DataRow.IsNull("结束日期") = False Then
            Dim dt1 As Date = iif(e.DataCol.name = "起始日期",e.NewValue, e.DataRow("起始日期"))
            Dim dt2 As Date = iif(e.DataCol.name = "结束日期",e.NewValue, e.DataRow("结束日期"))
            If  dt1 >= dt2  Then
                e.Cancel = True '取消编辑
                Messagebox.Show("【结束日期】必须大于【起始日期】","提示",MessageBoxButtons.OK, MessageBoxIcon.Information)
            End If
        End If
End Select