以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  根据商品有效期推算生产日期  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120290)
--  作者：蓝蚂蚁
--  发布时间：2018/6/12 9:46:00
--  根据商品有效期推算生产日期
由于表结构设计有缺陷，当时没有生产日期这列，现要加上这列，这列的内容根据有效期中的日期改变，举例：有效期为：2019-01-03，那么生产日期就是2014-01-02，即年份减去5年，日减去1，请问老师代码怎样写，因为数据有近1万行，手工改的话很费时费力。
--  作者：有点甜
--  发布时间：2018/6/12 9:53:00
--  

做个按钮，执行代码

 

For Each dr As DataRow In DataTables("表A").datarows
    Dim d As Date = dr("有效期")
    If d <> Nothing Then
        dr("日期") = d.AddYears(-4).AddDays(-1)
    Else
        dr("日期") = Nothing
    End If
Next
--  作者：蓝蚂蚁
--  发布时间：2018/6/12 10:07:00
--  
强大的Foxtable，强大的技术支持，更加强大的程序员，谢谢