主题：如何计算库龄

增加一个整数列 间隔

 

代码如下（datacolchanged事件） 入库日期变化时执行，

Select Case e.DataCol.name
   
    Case "入库日期"
        If e.NewValue IsNot Nothing Then
            Dim d1 As Date
            d1=e.NewValue
            Dim d2 As Date
            d2=Date.Today
            Dim t As TimeSpan
            t=d2-d1
            e.DataRow("间隔")=t.days
           
        End If
       
       
End Select

 

 

如果想每日自动更新 可以在这个表的afterload事件中执行代码:

 

e.DataTable.DataCols("入库日期").RaiseDataColChanged

e.datatable.save

 

 

看看字段是否对应正确 另外已有行要手动重置列 操作方法 选中入库日期列 再单击菜单栏重置列