主题：日期比较

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

keydownEdit 事件

 

If e.col.name = "第二列" Then

    e.cancel = true

End If

改成

 

If e.Col.name = "第二列" AndAlso e.Text > "" Then

代码写在不同的事件的，一个是validateedit，一个是keydownEdit

validateEdit改成

 

If e.Col.name = "二次时间" AndAlso e.Text > "" Then

不可能有问题，具体实例发上来测试。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:时间.table

认认真真看20楼例子啊。怎么不行？你如何测试？

无语，例子没问题。

看20楼例子

 

下载信息  [文件大小：372.0 KB  下载次数：4]

点击浏览该文件:时间.table