以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  上面代码中“保质天数”列，现在改为两列，一列“月”、一列“天” 其中每月按30天计算 保质天数 怎么替换为 月+天  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=89077)
--  作者：约翰舒
--  发布时间：2016/8/15 14:56:00
--  上面代码中“保质天数”列，现在改为两列，一列“月”、一列“天” 其中每月按30天计算 保质天数 怎么替换为 月+天

Select Case e.DataCol.Name
    Case "生产日期","保质天数"
        If e.DataRow.IsNull("生产日期") Then
            e.DataRow("到期日期") = Nothing
        Else
            e.DataRow("到期日期") = e.DataRow("生产日期").AddDays(e.DataRow("保质天数"))
        End If
End Select


老师您好

上面代码中“保质天数”列，现在改为两列，一列“月”、一列“天”

其中每月按30天计算

保质天数 怎么替换为 月+天

                                
--  作者：大红袍
--  发布时间：2016/8/15 16:21:00
--  
Select Case e.DataCol.Name
    Case "生产日期","月","天"
        If e.DataRow.IsNull("生产日期") Then
            e.DataRow("到期日期") = Nothing
        Else
            e.DataRow("到期日期") = e.DataRow("生产日期").AddDays(e.DataRow("月")*30+e.DataRow("天"))
        End If
End Select
--  作者：约翰舒
--  发布时间：2016/8/15 17:19:00
--  
谢谢老师
--  作者：约翰舒
--  发布时间：2016/8/22 12:00:00
--  

Select Case e.DataCol.Name
    Case "生产日期","保质天数"
        If e.DataRow.IsNull("生产日期") Then
            e.DataRow("到期日期") = Nothing
        Else
            e.DataRow("到期日期") = e.DataRow("生产日期").AddDays(e.DataRow("保质天数"))
        End If
End Select


老师您好

上面代码中“保质天数”列，现在改为两列，一列“月”、一列“天”

其中每月按30天计算

保质天数 怎么替换为 月+天


现在每月是按实际每月天数计算的，而不是统一按30天计算的，该怎么办？
--  作者：大红袍
--  发布时间：2016/8/22 12:25:00
--  
e.DataRow("到期日期") = e.DataRow("生产日期").AddMonths(e.DataRow("月")).AddDays(e.DataRow("天"))