以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  养殖  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=93669)
--  作者：molossus
--  发布时间：2016/12/3 21:56:00
--  养殖
我想做一套配种日期表
当天配种日期，下次检查20天，预产期114天，怎么做
--  作者：有点色
--  发布时间：2016/12/4 15:41:00
--  

DataColChanged事件，写代码


Dim dr As DataRow = e.DataRow
If dc.Name = "起始日期" Then
    If dr.IsNull("起始日期") Then
        dr("下次检查") = Nothing
        dr("预产期") = Nothing
    Else
        dr("下次检查") = dr("起始日期").AddDays(20)
        dr("预产期") = dr("起始日期").AddDays(114)
    End If
End If