主题：[求助]请问大家该如何计算过了多少天呢？

DataColChanged事件

Select Case e.DataCol.name
    Case "发货日期"
        If e.DataRow.IsNull("发货日期") Then
            e.DataRow("天数") = Nothing
        Else
            Dim tp As TimeSpan = Date.today - CDate(e.DataRow("发货日期"))
            e.DataRow("天数") = tp.TotalDays
        End If
End Select

AfterOpenProject事件

DataTables("员工").DataCols("发货日期").RaiseDataColChanged()