主题：有关日期之间的加减计算问题

不明白，下单日期减供货周期，岂不是没下单就得到货？

不知道供货周期是不是天数？

Dim dr As DataRow = e.DataRow
if e.DataCol.Name = "供货周期"  Then
    if dr.IsNull("供货周期") = false Then
        dr("第一批到货日期") = dr("采购下定单日期").AddDays(dr("供货周期"))
    Else
        dr("第一批到货日期") = Nothing
    End If
End If

这是加的，减也随意改，代码中的周期为天数。

那就改成这样：

Dim dr As DataRow = e.DataRow
if dr.IsNull("供货周期") = false Then
    if e.DataCol.Name = "供货周期"  Then
        if dr.IsNull("供货周期") = false Then
            dr("第一批到货日期") = dr("采购下定单日期").AddDays(dr("供货周期"))
        Else
            dr("第一批到货日期") = Nothing
        End If
    End If
    if e.DataCol.Name = "需要生产天数"  Then
        if dr.IsNull("需要生产天数") = false Then
            dr("最后到货日期") = dr("采购下定单日期").AddDays(dr("需要生产天数"))
        Else
            dr("最后到货日期") =  Nothing
        End If
    End If
End If