主题：如何随时间改变，而自动改变值？

有三个思路供参考：
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个方法处理。