主题：日期判断

判断日期：

 在   ValidateEdit  里面写

不行啊！还是一样的错误。是不是“结束日期”是空，系统把它判断为0？

判断一下再比较

先判断再计算也是出现这样的问题。。。怎么办啊？

改用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

此主题相关图片如下：1.png

第一次写入的日期不会提醒，再次写入小于“起始日期”的日期才会提示。所以还是不行啊

7楼的代码不会有问题，注意放在DataColChanging事件，不是放在DataColChanged事件

'ValidateEdit 事件

 If e.Col.Name = "结束日期" Then
    If e.Row("起始日期") >= e.text Then
        e.Text= ""
        MessageBox.Show("【结束日期】必须大于【起始日期】")
    End If
End If