以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]备货日期代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=48962)
--  作者：ZHX241806
--  发布时间：2014/4/9 20:30:00
--  [求助]备货日期代码
我有一表A中，知道交货日期列的日期，和该商品需要的备货天数，想知道该商品在哪一天开始备货，才能不误交货日期交货，请高手帮忙写一代码，谢谢！（现在我把项目上传）
--  作者：有点甜
--  发布时间：2014/4/9 20:38:00
--  

 参考代码，改一下就行了

 

设置表的DataColChanged事件代码，以便根据生产日期和到期天数，计算出到期日期：

 

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
--  作者：ZHX241806
--  发布时间：2014/4/9 20:40:00
--  
不知为什么，今天项目上传不上去，反正就三个列的关系，即交货日期列，备货天数列，求备货日期列的日期。
--  作者：有点甜
--  发布时间：2014/4/9 20:50: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
--  作者：有点甜
--  发布时间：2014/4/9 20:51:00
--  

例子

 

http://www.foxtable.com/help/topics/2471.htm

 
--  作者：ZHX241806
--  发布时间：2014/4/9 21:05:00
--  

非常好，谢谢！！！