以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教日期计算  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170542)
--  作者：xusuyang
--  发布时间：2021/7/29 21:31:00
--  请教日期计算

生产通知单

订单日期

生产日期

生产批号

失效日期

产品名称

规格型号

唛喷内容

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前

        谢谢！
--  作者：有点蓝
--  发布时间：2021/7/29 21:48:00
--  
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