- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请问时间选择控件，选择后能否输入当前时间？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=82337)
-- 发布时间：2016/3/16 10:00:00
-- 请问时间选择控件，选择后能否输入当前时间？
此主题相关图片如下：1.png
请问时间选择控件，选择后能否输入当前时分秒？ 而不是 类似于 2015-11-17 00:00:00 ?
-- 发布时间：2016/3/16 10:03:00
--
如果单元格没有内容，直接按两次空格，当前日期和时间就自动输入了
-- 发布时间：2016/3/16 10:05: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, d.now.Minute, d.now.Second)
End If
End If
-- 发布时间：2016/3/16 10:06:00
--
为什么程序发布处，那个选择发布时间的控件，点击“今日” 后，可以自动填入日期和时间？
-- 发布时间：2016/3/16 10:10:00
--
看3楼。
-- 发布时间：2016/3/16 10:30:00
-- 回复：（大红袍）textChanged事件 Dim d As ...
我怎么找不到这个事件，在哪里面
-- 发布时间：2016/3/16 10:41:00
--
以下是引用wgmcom在2016/3/16 10:30:00的发言：
我怎么找不到这个事件，在哪里面
我怎么找不到这个事件，在哪里面
哦，ChangeEdit事件
If e.Col.name = "第三列" Then
Dim d As Date
If Date.TryParse(e.text,d) Then
If d.Hour = 0 AndAlso d.Minute = 0 AndAlso d.Second = 0 Then
e.Table.FinishEditing
e.Row(e.Col.name) = new Date(d.year, d.month, d.day, Date.now.hour, d.now.Minute, d.now.Second)
e.Table.StartEditing
End If
End If
End If