以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教录入表数据时,日期和时间的显示问题,即自动增加的行(连续录入状态下)显示的时间不正确。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91450)

--  作者:猫小猪
--  发布时间:2016/10/11 10:21:00
--  请教录入表数据时,日期和时间的显示问题,即自动增加的行(连续录入状态下)显示的时间不正确。
新增的代码:   
Dim dr As DataRow
dr = DataTables("借出").AddNew()
dr("单据日期") = DateTime.now
e.Form.Controls("txtperson").Select()
With Tables("借出")
    .Position = .Rows.Count - 1
End With

新增加的第一行显示的日期和时间是正确的,由于是自动会再增加一行,那么自动增加那一行的日期正确,但时间显示0:00:00, 代码应该如何修改? 谢谢!  如下图示:

图片点击可在新窗口打开查看此主题相关图片如下:自动增行的时间取值问题.jpg
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2016/10/11 10:35:00
--  
测试没有问题,上例子说明
--  作者:猫小猪
--  发布时间:2016/10/11 10:48:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:123.rar





--  作者:猫小猪
--  发布时间:2016/10/11 10:49:00
--  
开发者:  密码:qqqqqq
--  作者:猫小猪
--  发布时间:2016/10/11 11:09:00
--  
是要连续录入的时候,只有第一行取到了时间, 后面的行都没有取到数据。   即: 录入领用部门后, 连续录入条形码那一项,后面的日期中,时间显示0:00:00
--  作者:有点蓝
--  发布时间:2016/10/11 11:32:00
--  
借出DataColChanged事件

dr("单据日期") = Date.Today

改为

dr("单据日期") = Date.Now

--  作者:猫小猪
--  发布时间:2016/10/11 11:37:00
--  
晕啊,原来是这里,忘记改这里了,谢谢!