- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 带有日期和时间的自动录入（入库单） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54073)
-- 发布时间：2014/7/21 14:49:00
-- 带有日期和时间的自动录入（入库单）
本示例是运用外部数据源，里边有个入库单窗口，请问如何做到点击”保存“ 按钮自动输入现在时间，效果是 例如：2014-07-21 14:50:30 而不是 2014-07-21 00:00:00 请问如何做到？
此主题相关图片如下：qq截图20140721143819.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:时间录入问题.zip |
-- 发布时间：2014/7/21 14:51:00
--
列的格式要设置陈日期时间
http://www.foxtable.com/help/topics/0044.htm
-- 发布时间：2014/7/21 14:52:00
--
如果数据没绑定列
-- 发布时间：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()
\'-----------------------------------------------
-- 发布时间：2014/7/21 14:59:00
--
列属性-日期与时间格式-datelongtime
CurrentTable.Current("日期") = Date.Now
-- 发布时间：2014/7/21 15:04:00
--
好的试验下。
-- 发布时间：2014/7/21 15:05:00
--
谢谢问题解决