-- 作者:zerozm
-- 发布时间:2019/7/14 15:42:00
-- 剩余工期,没有每天自动更新,如何解决?在线等。。
以前编写的代码在
DataColChanged
中: 但是表格中数据没有变化时, 剩余工期就不会变化;还是前期的剩余天数;
剩余工期= 要求完成时间 - 今日时间
如何让剩余工期每天自动变更??
应该在什么地方写什么代码?
Dim tm001 As TimeSpan
Dim dm001 As Date = CurrentTable.Current("要求完成时间") If e.DataRow.IsNull("要求完成时间") Then e.DataRow("剩余工期") = Nothing Else tm001 = dm001 - Date.Today e.DataRow("剩余工期") = tm001.TotalDays End If
-------------------------------------------------------------------------------------------------
代码如果写到 表事件的 afterload 中,提示错误。我是新手,请高手说得详细些。
此主题相关图片如下:3333.png
[此贴子已经被作者于2019/7/14 15:46:06编辑过]
|