以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  排产第一道序时间异常  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132198)

--  作者：有点蓝 --  发布时间：2019/3/16 12:04:00 --   调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm 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) 这里只是举几个例子，自己在代码的关键地方加上一些提示框，显示每一行计算的一些结果值，看是从什么时候开始这个值有问题的。业务的东西还是要靠自己去调试分析的，别人帮不了多少