主题：请教日期计算

生产通知单

订单日期	生产日期	生产批号	失效日期	产品名称	规格型号	唛喷内容
2021-7-26	2021-7-29	20210729	20230728	导尿包	RJ-DCD-18Fr	规格、型号：RJ-DCD-18Fr 生 产 日 期：20210729 生 产 批 号：20210729 失 效 日 期：20230728

 

请问如何用表事件代码，如何计算日期？如上表中。

1、例如①在＂生产日期＂列中输入：2021-7-29；②在＂规格型号＂列中输入：RJ-DCD-28Fr。

如何在表事件中用代码自动实现：

A、在＂生产批号”列自动显示为：20210729

B、在＂失效日期＂列中自动显示：20230728

C、在“唛喷内容”列自动显示为：

a、第一行：规格、型号：RJ-DCD-18Fr
b、第二行：生产日期：20210729

c、第三行：生产批号：20210729

d、第四行：失效日期：20230728

我的版本是2021.4.5前

        谢谢！

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