以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]日期计算  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=1132)

--  作者:zhuxiangji
--  发布时间:2008/11/14 12:19:00
--  [求助]日期计算
大家不要笑话,我是菜鸟,求助一个弱弱的问题:
我有一列是日期列,另一列等于日期列据系统日期的相差天数。请问该怎样设置计算公司,并且能够自动更新。在哪里设置?
--  作者:狐狸爸爸
--  发布时间:2008/11/14 12:32:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目24.table


--  作者:zhuxiangji
--  发布时间: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编辑过]

--  作者:zhuxiangji
--  发布时间:2008/11/14 13:12:00
--  
谢谢!