以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  ValidateEdit事件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121620)

--  作者:nbsugu_z
--  发布时间:2018/7/10 15:45:00
--  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

 

ValidateEdit代码事件,要求:要强制输入,不能为空,如为空,不能编辑下一个单元格,这个代码为什么不行?


--  作者:有点甜
--  发布时间:2018/7/10 15:56:00
--  

参考

 

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