主题：日期计算

专业的工程师：

        您好！我想在表中其中一列设置一个表达式，用来计算某车辆多少天没有到店里消费，应如何设置？请参看附件截图。

此主题相关图片如下：日期计算.jpg

DataColChanged事件

 

Select Case e.DataCol.name
    Case "最近到店"
        Dim sp As TimeSpan = Date.Today - cdate(e.DataRow("最近到店"))
        e.DataRow("间隔日期") = sp.TotalDays
End Select

 

AfterOpenProject事件

 

DataTables("表A").datacols("最近到店").RaiseDataColChanged