以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [建议] 日期输入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=87095)
--  作者：zcgmxf
--  发布时间：2016/7/3 8:33:00
--  [建议] 日期输入

如果日期格式为 datatime 用内置输入 结果是 2016-01-01 00:00

如果 用空格键 结果为 当时输入时间2016-01-01 08:30。能否将日期设置成 不同输入格式时 ，使用内置输入 输入的日期为即时时间。
--  作者：wyz20130512
--  发布时间：2016/7/3 9:19:00
--  
在DataColChanging中加入以下代码

If e.DataCol.Name = "日期" Then
    e.NewValue = Date.Now
End If
--  作者：wyz20130512
--  发布时间：2016/7/3 9:38:00
--  
顶
[此贴子已经被作者于2016/7/3 9:38:59编辑过]
--  作者：凡夫俗子
--  发布时间：2016/7/3 16:51:00
--  
这是个问题，其实官方程序完全可以智能点，增加一个开关，控制是否输入当前时间
--  作者：大红袍
--  发布时间：2016/7/3 23:52:00
--  

去编写ChangeEdit事件

 

If e.Col.name = "第四列" AndAlso e.Text Like "* 00:00" Then
    Dim d As Date = e.text
    e.Table.FinishEditing
    e.Row(e.Col.name) = new Date(d.year, d.Month, d.Day, Date.Now.Hour, Date.Now.Minute,0)
    e.Table.StartEditing
End If