排产第一道序时间异常 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

nr("计划数量") = jhsl
Dim d As Date = dr("计划开始日期")

msgbox("计划开始日期=" & d)

……

Else
            d = tnr("开始日期")
            d = d.AddHours(8)
        End If
        nr("开始日期") = d

msgbox("开始日期=" & d)
nr("预计结束日期") = d.AddMinutes(nr("循环时间")*jhsl)

msgbox("预计结束日期=" & d)

这里只是举几个例子，自己在代码的关键地方加上一些提示框，显示每一行计算的一些结果值，看是从什么时候开始这个值有问题的。业务的东西还是要靠自己去调试分析的，别人帮不了多少

主题：排产第一道序时间异常