- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134012)
-- 发布时间：2019/4/25 12:11:00
-- 求助
请问，如何在表格中新增一列当前时间列？，要求在登录系统afterload可以实现时间自动同步。
-- 发布时间：2019/4/25 13:06:00
--
为什么要加入这一列？这个没有任何意义。请具体举例说明一下你要做到的效果。
-- 发布时间：2019/4/25 14:47:00
--
你好，我想实现的是计算入库时长。
目前在Datecolchanged中已经设置了
Select Case e.DataCol.Name
Case "登记时间","消缺时间"
Dim dr As DataRow = e.DataRow
If dr.IsNull("登记时间") OrElse dr.IsNull("消缺时间") Then
dr("入库时长") = Nothing
Else
Dim tp As TimeSpan = dr("消缺时间") - dr("登记时间")
dr("入库时长") = tp.TotalDays
End If
End Select
实现了输入消缺时间后，入库时长自动计算。但是在窗口中通过新增按钮增加一行时，无法实现入库时长自动计算，而且根据实际情况，当消缺时间为空时，需要计算的入库时长为：当前时间-登记时间 的天数。请问有什么方法实现呢？
-- 发布时间：2019/4/25 14:58:00
--
Select Case e.DataCol.Name
Case "登记时间","消缺时间"
Dim dr As DataRow = e.DataRow
If dr.IsNull("登记时间") Then
dr("入库时长") = Nothing
Else
If dr.IsNull("消缺时间") Then
Dim tp As TimeSpan = Date.Today - dr("登记时间")
dr("入库时长") = tp.TotalDays
Else
Dim tp As TimeSpan = dr("消缺时间") - dr("登记时间")
dr("入库时长") = tp.TotalDays
End If
End If
End Select
-- 发布时间：2019/4/25 15:39:00
--
你好，在datecolchanged中输入后，提示如图，请问是为什么？
此主题相关图片如下：图片1.png
-- 发布时间：2019/4/25 15:51:00
--
原因：http://www.foxtable.com/webhelp/scr/1517.htm
-- 发布时间：2019/4/25 16:02:00
--
谢谢。可以实现了。