以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何随时间改变,而自动改变值?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4291)

--  作者:floor2
--  发布时间:2009/9/9 22:46:00
--  如何随时间改变,而自动改变值?
 收款日期,收款金额,

”天元“=收款金额×(收款日期至today()的天数)

如何设置随着today()值的不同,天元的数值自动计算改变?



--  作者:雪山飞狐
--  发布时间:2009/9/9 23:38:00
--  
有三个思路供参考:
1、DataColChanged事件中写上以下代码,然后在合适的事件或按钮中,安排列重置 RaiseDataColChanged()进行刷新。
If e.DataCol.Name = "应收款日期"  OrElse  e.DataCol.Name ="收款金额"  Then
    Dim d1 as Date = e.DataRow("应收款日期")
    Dim d2 as Date = date.Today
    Dim t As TimeSpan = d2 - d1
    e.DataRow( "天元" ) = e.DataRow( "收款金额") * t.Days
end if

2、在服务器上开启一个程序,不关机,记录上次计算的日期,在计划中,到凌晨0点,系统自动进行重置列,并保存。等你上班时,数据已经更新过了。
3、利用SQL的update ,参考以上2个方法处理。