标题：[求助]关于自动日期显示问题

此主题相关图片如下：9610745ed842123eb3ec47306af55bf.png


此主题相关图片如下：2e51516bc5d8fe2473155d2cc91e310.png

关于日前显示,套用了帮助里面的代码,希望实现:按照PO交货日期前多少天,跟船务公司订仓,

测试的时候用了图2,用第四列,第五,第六列,能正常表达,换成订仓时间,昨天用同样的日期列能实现这个功能(昨天实现的是 PO交货期 - 订舱提前日 = 订舱日期),但是昨天这一列用了表达式列,今天打开项目,日期没有保存,我把这一列换成数据列,还是无法显示需要的(订舱日期)

这检查了这两个表的所有代码(测试用的第四,五,六列那个表和需要的工作表),代码设置都是一样的,不明白问题出在哪里

请帮忙看下原因

Dim dc As DataCol = e.DataCol
Dim dr As DataRow = e.DataRow
If dc.Name = "PO交货日期" OrElse dc.Name = "订舱提前日" Then
    If dr.IsNull("PO交货日期") OrElse dr.IsNull("订舱提前日") Then
        dr("订舱日期") = Nothing
    Else
        dr("订舱日期") = dr("PO交货日期").AddDays(-dr("订舱提前日"))
    End If
End If

改成数据列之后一直无法正常显示日期,重新删了这一列,补出来一个同名数据列,还是无法显示日期