主题：剩余工期，每天自动变化；

以前编写的代码在 

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

用表达式列，或者查询表

代码没问题，在想要的地方（例如：项目打开后事件）重新刷新一下即可

项目打开后，代码还是错误，请问如何编写代码。项目打开后自动更新日期。

 

我是新手，请尽量写详细点。谢谢各位老师。

 

 

此主题相关图片如下：3333.png

没有　e.datarow

 还是没有实现  剩余工期，每天自动变化； 

到afteropenproject事件写代码：

老师，我在窗口中 加入了一个按钮， 点击才执行 RaiseDataColChanged

但是我一点击“刷新工期”，应该就执行  RaiseDataColChanged

结果是：所有项目的“剩余工期”全部都变成了 一个数字；且感觉没什么逻辑关系。

隔会再点  “刷新工期”， 则 所有项目的“剩余工期”又变成另外一个 数字。

 

 

剩余工期= 要求完成时间 - 今日时间
要求完成时间 = 任务发起时间 + 要求工期

 

所以我按钮就是：  刷新工期 

 

DataTables("任务清单台账").datacols("要求工期").RaiseDataColChanged

此主题相关图片如下：刷新工期.png

datacolchanged事件写了什么代码？

代码如下：
没有刷新的程序，以前是正常的。
增加刷新，就出错了。

 

此主题相关图片如下：刷新222.jpg