增加一个整数列 间隔
代码如下(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