主题：日期计算

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