Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:[求助]日期计算

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

3楼
zhuxiangji 发表于:2008/11/14 12:44:00
谢谢狐爸!
再请问,这个代码写在datacolchanged事件中,能自动更新吗?我是用来标识订单执行警示,如这个订单一旦确定交付日期,这一列会标识出离交付还有多少天,或者已经超期多少天。这需要每天自动更新!
4楼
狐狸爸爸 发表于: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编辑过]
5楼
zhuxiangji 发表于:2008/11/14 13:12:00
谢谢!
共5 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 4 queries.