以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请问大家该如何计算过了多少天呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=96894)
--  作者：churpchurs
--  发布时间：2017/3/1 22:57:00
--  [求助]请问大家该如何计算过了多少天呢？
我想计算一下一个订单从发货日开始到现在过去了多少天该怎样写表达式呢？
例如某个订单的发货日期是2017-01-10该如何计算这个订单已经发出了多少日？
--  作者：有点色
--  发布时间：2017/3/1 23:24:00
--  

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()