请教日期计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.DataCol.Name
    Case "生产日期"
  If e.DataRow.IsNull("生产日期") Then
        e.DataRow("生产批号") = Nothing
        e.DataRow("失效日期") = Nothing
    Else
        e.DataRow("生产批号") = format(e.NewValue,"yyyyMMdd")
        e.DataRow("失效日期") = format(e.NewValue.addyears(2).adddays(-1),"yyyyMMdd")
    End If
End Select

Select Case e.DataCol.Name
Case "生产日期","规格型号"

e.DataRow("唛喷内容") = "规格、型号：" & e.DataRow("规格型号") & vbcrlf & "生产日期" & format(e.NewValue,"yyyyMMdd") & vbcrlf &...自己补完整..

End Select

主题：请教日期计算