- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]保修期 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127082)
-- 发布时间：2018/11/5 11:03:00
-- [求助]保修期
老师，又要麻烦你了。
此主题相关图片如下：图像 121.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:保修期.table |
-- 发布时间：2018/11/5 11:52:00
--
参考
http://www.foxtable.com/webhelp/scr/2647.htm
http://www.foxtable.com/webhelp/scr/0258.htm
-- 发布时间：2018/11/5 12:18:00
--
老师，我想在保修期列中输入年数后再计算出剩余的年月日，并在剩余总天数列中显示总的天数。
-- 发布时间：2018/11/5 12:32:00
--
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/11/5 12:57:00
--
谢谢老师
-- 发布时间：2018/11/5 13:37:00
--
老师还有问题请求，购买日期、保修期列输入数据后能在保修年限列中显示年份（如2018-011-05）。
-- 发布时间：2018/11/5 14:56:00
--
e.datarow("保修年限") = dt
-- 发布时间：2018/11/5 15:15:00
--
老师，太谢谢了。