Foxtable(狐表)用户栏目专家坐堂 → [求助]保修期


  共有2455人关注过本帖树形打印复制链接

主题:[求助]保修期

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/5 11:52:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/5 14:56:00 [显示全部帖子]

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

 回到顶部