以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表中 的日期自动输入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135393)
--  作者：mxl810823
--  发布时间：2019/5/25 14:13:00
--  表中 的日期自动输入
窗体中的日期控件，可以实现当只输入12时按回车就自动转为2019-05-12，当只输入0312时按回车就自动转为2019-03-12
可是在表中就不行，想了好多办法。因为只要输入了数字，如果不是完整的日期是退不出来的，也不能给当前格赋值。怎么办才可以实现？？？？
--  作者：有点蓝
--  发布时间：2019/5/25 14:42:00
--  
KeyDownEdit事件

If e.KeyCode = Keys.enter Then
    If e.text.Length = 2 Then
        e.text = Date.Today.Tostring("yyyy-MM-") & e.text
    ElseIf e.text.Length = 4 OrElse e.text.Length = 5 Then
        e.text = Date.Today.Tostring("yyyy-") & e.text.Insert(2,"-").TrimEnd("-")
    End If
End If