以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  与今天相减天数计算  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105895)

--  作者:恒隆君
--  发布时间:2017/8/28 21:08:00
--  与今天相减天数计算
列名:
最近使用日期
闲置天数

实现功能:
闲置天数=Today-最近使用日期

怎么实现

--  作者:有点蓝
--  发布时间:2017/8/28 21:20:00
--  
datacolchanged事件

If e.DataCol.Name = "最近使用日期" Then
    If e.DataRow.IsNull("最近使用日期") Then
        e.DataRow("闲置天数") = Nothing
    Else
        Dim ts As TimeSpan = Date.Today - e.DataRow("最近使用日期")
        e.DataRow("闲置天数") = ts.TotalDays
    End If
End If


--  作者:恒隆君
--  发布时间:2017/8/28 21:35:00
--  
编译错误:没有为类型“date”和"Object"定义运算符"-"
错误代码:Dim ts As TimeSpan = Date.Today - e.DataRow("最近使用日期")

有报警,这是什么意思呀

--  作者:恒隆君
--  发布时间:2017/8/28 21:36:00
--  
有报错,不知哪里错了
--  作者:有点蓝
--  发布时间:2017/8/28 21:47:00
--  
Dim ts As TimeSpan = Date.Today - cdate(e.DataRow("最近使用日期"))


--  作者:恒隆君
--  发布时间:2017/8/30 8:47:00
--  
谢谢,搞定了。