以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  两个添加行后默认生成的日期,怎样让他们相减得到相差的天数  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93729)

--  作者:luckbetter333
--  发布时间:2016/12/5 17:47:00
--  两个添加行后默认生成的日期,怎样让他们相减得到相差的天数
如题,直接编辑公式告诉我没法计算
--  作者:有点蓝
--  发布时间:2016/12/5 17:51:00
--  
只能用代码计算:http://www.foxtable.com/webhelp/scr/0287.htm
--  作者:luckbetter333
--  发布时间:2016/12/5 18:45:00
--  
请问这个编码要放在哪?列的事件在哪里?
--  作者:有点蓝
--  发布时间:2016/12/5 20:08:00
--  

Select Case e.DataCol.Name 
    Case "开始日期","结束日期"
        If e.DataRow.IsNull("开始日期") OrElse e.DataRow.IsNull("结束日期") Then
            e.DataRow("天数") = Nothing
        Else
            Dim ts As TimeSpan = cdate(e.DataRow("开始日期") ) - cdate(e.DataRow("结束日期") )
            e.DataRow("天数") = ts.TotalDays
        End If
End Select

--  作者:luckbetter333
--  发布时间:2016/12/6 5:38:00
--  
自动添加行后给这个提示,添加后需要修改日期才计算天数,带入的日期不自动计算
图片点击可在新窗口打开查看此主题相关图片如下:qq图片20161206053630.png
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2016/12/6 9:24:00
--  
学会理解代码,根据自己的项目改改,不要完全照搬。

带入的日期重置列图片点击可在新窗口打开查看

--  作者:luckbetter333
--  发布时间:2016/12/6 13:52:00
--  
修改后运行错误没了,不过还是要修改日期后才能计算天数,重置列也还是这样,再琢磨琢磨,真心谢谢啦,大神!
--  作者:有点蓝
--  发布时间:2016/12/6 14:19:00
--  
选中日期列重置,不要重置其它列