主题：请教“天数计算”

老师：您好！

     我在下表中设计了“订货日期”、“预定发货日期”、“发货剩余天数”、“延期发货天数”、“发货提醒”、“发货日期”、“订货公司”、“产品名称”、“订货数量”、“产品规格”、“订货数量”、“单位”等列。

要实现：

      1、当我在“订货日期”列输入中如2018-11-27；在“预定发货日期”列中输入如2018-12-03时；当我如在“2018-11-30日”打开此系统时，如何实现“发货剩余天数”列自动显示为“3”，而不是继续显示“4”？当我在”2018-12-01日”打开此系统时，如何实现“发货剩余天数”列自动显示为“2”， 而不是继续显示“4”？

      2、若如期未发货（即：未在“发货日期”输入日期），当我如在“2018-12-06日”打开此系统时，“发货剩余天数”列自动显示为“-2”？当我如在“2018-12-07日”打开此系统时，“发货剩余天数”列自动显示为“-3”？

    原有代码：

Select Case e.DataCol.name
    Case "订货日期","预定发货日期"
        If e.DataRow.IsNull("订货日期") OrElse e.DataRow.IsNull("预定发货日期") Then
            e.DataRow("发货剩余天数") = Nothing
        Else
            Dim y,m,d As Integer
            Dim dt1 As Date = Date.Today
            Dim dt2 As Date = e.DataRow("预定发货日期")
            DateYMD(dt1,dt2,y,m,d)
            dt1 = dt1.AddYears(y)
            d= (dt2- dt1).TotalDays() + 1
            e.DataRow("发货剩余天数") =  d
        End If
End Select
请问老师如何修改一下代码才能实现？谢谢！！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb