主题：根据商品有效期推算生产日期

由于表结构设计有缺陷，当时没有生产日期这列，现要加上这列，这列的内容根据有效期中的日期改变，举例：有效期为：2019-01-03，那么生产日期就是2014-01-02，即年份减去5年，日减去1，请问老师代码怎样写，因为数据有近1万行，手工改的话很费时费力。

做个按钮，执行代码

 

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

强大的Foxtable，强大的技术支持，更加强大的程序员，谢谢