标题：[求助]日期计算

大家不要笑话，我是菜鸟，求助一个弱弱的问题：
我有一列是日期列，另一列等于日期列据系统日期的相差天数。请问该怎样设置计算公司，并且能够自动更新。在哪里设置？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目24.table

谢谢狐爸！
再请问，这个代码写在datacolchanged事件中，能自动更新吗？我是用来标识订单执行警示，如这个订单一旦确定交付日期，这一列会标识出离交付还有多少天，或者已经超期多少天。这需要每天自动更新！

计算代码：
 if e.datarow.isnull("日期") Then
   e.datarow("值")=Nothing
 else
   Dim d1 As Date = Date.today
   Dim d2 as Date = e.datarow("日期")
   e.datarow("值")=(d1-d2).TotalDays
 End If

datacolchenged:
If e.Datacol.Name = "日期" Then
   e.DataTable.DataCols("值").Recalc(e.datarow)
end if

项目的AfterOpenproject事件：

Datatables("表A").Datacols("值").Recalc()

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目24.rar

谢谢！