主题：ValidateEdit事件

If e.Col.Name = "日期" Then '如果正在输入的是日期列
    If e.Text > "" Then '如果已经输入内容
        Dim v As Double = Val(e.Text) '将输入的内容转换为数值
        If v = nothing then  '如果输入为空

       e.Cancel = True '则禁止退出编辑模式
        End If
    End If
End If

参考

http://www.foxtable.com/webhelp/scr/0644.htm