以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 日期+天数=新的日期  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91730)

--  作者:关怀天下
--  发布时间:2016/10/17 21:53:00
--  [求助] 日期+天数=新的日期
求助大家,帮我实现一个功能
日期 + 天数 = 新的日期怎么实现啊,有代码吗,我想了好几天都没想出方法来

--  作者:有点蓝
--  发布时间:2016/10/17 21:57:00
--  
想那么多还不如到帮助中找找:http://www.foxtable.com/webhelp/scr/1337.htm



--  作者:关怀天下
--  发布时间:2016/10/17 22:25:00
--  
大神我知道基本的原理 dim v as date =date。today  
                             v = v。addmoths(月数)
                             output。show(v)
但是如何才能体现到表中呢,日期列中填写变量(date) +  天数列中填写变量(string) = 新日期中得新的值(date),这个过程怎么实现啊,求助大神门帮忙啊

--  作者:关怀天下
--  发布时间:2016/10/17 22:29:00
--  
可以加您好友吗
--  作者:有点蓝
--  发布时间:2016/10/17 22:56:00
--  
http://www.foxtable.com/webhelp/scr/0625.htm

Select Case e.DataCol.Name
    Case "日期","天数"
        If e.DataRow.IsNull("日期") Then
            e.DataRow("新日期") = Nothing
        Else
            e.DataRow("新日期") = e.DataRow("日期").AddDays(val(e.DataRow("天数")))
        End If
End Select

--  作者:关怀天下
--  发布时间:2016/10/18 17:25:00
--  
谢谢了,实在太感谢您了