Foxtable(狐表)用户栏目专家坐堂 → [建议] 日期输入


  共有2400人关注过本帖树形打印复制链接

主题:[建议] 日期输入

帅哥哟,离线,有人找我吗?
zcgmxf
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1652 积分:14691 威望:0 精华:0 注册:2014/6/6 8:42:00
[建议] 日期输入  发帖心情 Post By:2016/7/3 8:33:00 [只看该作者]

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

如果 用空格键 结果为 当时输入时间2016-01-01 08:30。能否将日期设置成 不同输入格式时 ,使用内置输入 输入的日期为即时时间。


 回到顶部
帅哥哟,离线,有人找我吗?
wyz20130512
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1249 积分:9474 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2016/7/3 9:19:00 [只看该作者]

DataColChanging中加入以下代码

If e.DataCol.Name = "日期" Then
    e.NewValue = Date.Now
End If

 回到顶部
帅哥哟,离线,有人找我吗?
wyz20130512
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1249 积分:9474 威望:0 精华:0 注册:2013/5/12 9:22:00
  发帖心情 Post By:2016/7/3 9:38:00 [只看该作者]

[此贴子已经被作者于2016/7/3 9:38:59编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
凡夫俗子
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:457 积分:3523 威望:0 精华:0 注册:2016/1/22 18:17:00
  发帖心情 Post By:2016/7/3 16:51:00 [只看该作者]

这是个问题,其实官方程序完全可以智能点,增加一个开关,控制是否输入当前时间

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部