以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  带有日期和时间的自动录入（入库单）  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=54073)
--  作者：huoxingshu
--  发布时间：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

 
--  作者：Bin
--  发布时间：2014/7/21 14:52:00
--  
如果数据没绑定列
e.form.controls("控件名")=date.now

如果绑定了列

tables("表名").current("列名")=date.now
--  作者：有点甜
--  发布时间：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()
\'-----------------------------------------------
--  作者：yan2006l
--  发布时间：2014/7/21 14:59:00
--  

列属性-日期与时间格式-datelongtime

CurrentTable.Current("日期") = Date.Now
--  作者：huoxingshu
--  发布时间：2014/7/21 15:04:00
--  
好的试验下。
--  作者：huoxingshu
--  发布时间：2014/7/21 15:05:00
--  
谢谢问题解决