以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何实现在输入日期时大于今日日期时系统提示告警  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=90160)
--  作者：aismeng
--  发布时间：2016/9/6 20:41:00
--  [求助]如何实现在输入日期时大于今日日期时系统提示告警
请各位大侠帮忙,如何实现在使用内置输入器输入日期时,当输入的日期大于今天日期时,系统提示错误,要求重新输入.
多谢!
[此贴子已经被作者于2016/9/6 21:04:26编辑过]
--  作者：有点蓝
--  发布时间：2016/9/6 21:23:00
--  
DataColChanging事件

Select Case e.DataCol.Name
    Case "第一列"
        If e.NewValue IsNot Nothing Then
            If e.NewValue > Date.Now Then
                msgbox("错误")
                e.Cancel = True
            End If
        End If
End Select
--  作者：aismeng
--  发布时间：2016/9/7 1:31:00
--  
代码测试OK,非常感谢"有点蓝"的帮助!