主题：[求助]保修期

此主题相关图片如下：图像 121.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:保修期.table

参考

 

http://www.foxtable.com/webhelp/scr/2647.htm

 

http://www.foxtable.com/webhelp/scr/0258.htm

 

 老师，我想在保修期列中输入年数后再计算出剩余的年月日，并在剩余总天数列中显示总的天数。

Select Case e.DataCol.name
    Case "购买日期", "保修期"
        If e.DataRow.IsNull("购买日期") OrElse e.DataRow.isnull("保修期") Then
            e.DataRow("年") = Nothing
            e.DataRow("月") = Nothing
            e.DataRow("天") = Nothing
        Else
            Dim y,m,d As Integer
            Dim dt As Date = e.DataRow("购买日期")
            dt = dt.AddYears(val(e.DataRow("保修期")))
            DateYMD(Date.Today,dt,y,m,d)
            e.DataRow("年") = y
            e.DataRow("月") = m
            e.DataRow("天") = d
            e.DataRow("到期天数") = (dt-Date.Today).TotalDays
        End If
End Select

 谢谢老师

老师还有问题请求，购买日期、保修期列输入数据后能在保修年限列中显示年份（如2018-011-05）。

e.datarow("保修年限") = dt

 老师，太谢谢了。