带有日期和时间的自动录入（入库单） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 带有日期和时间的自动录入（入库单）

共有4334人关注过本帖树形打印复制链接主题：带有日期和时间的自动录入（入库单）

huoxingshu

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：140 积分：823 威望：0 精华：0 注册：2014/2/19 10:53:00

带有日期和时间的自动录入（入库单） 发帖心情

Post By：2014/7/21 14:49:00 [只看该作者]

本示例是运用外部数据源，里边有个入库单窗口，请问如何做到点击”保存“ 按钮自动输入现在时间，效果是例如：2014-07-21 14:50:30 而不是 2014-07-21 00:00:00 请问如何做到？
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20140721143819.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:时间录入问题.zip

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/21 14:51:00 [只看该作者]

列的格式要设置陈日期时间

http://www.foxtable.com/help/topics/0044.htm

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/7/21 14:52:00 [只看该作者]

如果数据没绑定列

e.form.controls("控件名")=date.now

如果绑定了列

tables("表名").current("列名")=date.now

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/7/21 14:59:00 [只看该作者]

窗口AfterLoad代码

Tables("入库单_Table1").fill("SELECT * From {入库单}","入库单",False)
'Tables("库存统计(货品入库单)录入_Table1").SetColVisibleWidth("入库单编码|100|货品名称|100|货品编码|100|货品规格|100|单价|80|数量|100|小计|120|采购员|80|采购日期|80|库房名称|80|销售商名称|80|生产厂商名称|80")
Tables("入库单_Table1").AllowEdit = True

e.form.Controls("DateTimePicker1").BindingField = "入库单_Table1.入库日期"
e.form.Controls("DateTimePicker2").BindingField = "入库单_Table1.采购日期"

Tables("入库单_Table1").Cols("入库日期").DataCol.SetDateTimeFormat(DateTimeFormatEnum.DateLongTime)

'------------------------------------现在时间
Dim lb1 As WinForm.Label
lb1=e.Form.Controls("现在时间")
lb1.Text = Date.now()
'-----------------------------------------------