- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]日期计算 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=1132)
-- 发布时间：2008/11/14 12:19:00
-- [求助]日期计算
大家不要笑话，我是菜鸟，求助一个弱弱的问题：
我有一列是日期列，另一列等于日期列据系统日期的相差天数。请问该怎样设置计算公司，并且能够自动更新。在哪里设置？
-- 发布时间：2008/11/14 12:32:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目24.table |
-- 发布时间：2008/11/14 12:44:00
--
谢谢狐爸！
再请问，这个代码写在datacolchanged事件中，能自动更新吗？我是用来标识订单执行警示，如这个订单一旦确定交付日期，这一列会标识出离交付还有多少天，或者已经超期多少天。这需要每天自动更新！
-- 发布时间：2008/11/14 13:05:00
--
计算代码：
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 |
[此贴子已经被作者于2008-11-14 13:16:30编辑过]
-- 发布时间：2008/11/14 13:12:00
--
谢谢！