以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关于日期控件的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74747)
--  作者：bbnnmm2015
--  发布时间：2015/9/18 9:02:00
--  关于日期控件的问题
专家您好，我在窗口中插入一个日期控件，将其格式设置为datelongtime，表中对应列也设置同样的格式，但在执行窗口，插入数据时时间显示为：2015-09-18 00:00:00，不能显示时、分、秒，怎么解决
--  作者：Hyphen
--  发布时间：2015/9/18 10:09:00
--  

参考http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=38781
--  作者：bbnnmm2015
--  发布时间：2015/9/18 14:31:00
--  
参考还是不行啊
--  作者：Hyphen
--  发布时间：2015/9/18 14:38:00
--  
上传具体例子
--  作者：大红袍
--  发布时间：2015/9/19 10:32:00
--  

呃，你选择的是日期，并不会自动填入时间。

 

TextChanged事件

 

Dim d As Date
If Date.TryParse(e.sender.text, d) Then
    If d.Hour = 0 AndAlso d.Minute = 0 AndAlso d.Second = 0 Then
        e.sender.text = new Date(d.Year, d.Month, d.day, Date.Now.hour, Date.now.minute, Date.now.Second)
    End If
End If