[求助]模拟信息的时间填充问题（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下面这段代码是模拟信息的时间生成并填充，希望达到同工位和同节拍的开始时间或结束时间要相同，如何实现这个效果，请各位老师指教，谢谢！！

If dr.IsNull("开始时间") Then

dr = DataTables("时间记录").Find("[序号] < " & mr("序号") & " And [工序编号] = '" & mr("工序编号") & "'And [工位] = '" & mr("工位") & "' And [批次] = '" & mr("批次") & "'", "[序号] Desc") '找出上一行

If dr Is Nothing Then '如果没有找到上一行,说明本行就是第一行

mr("开始时间") = zdysj '第一个节拍开始时间

mr("结束时间") = CDate(mr("开始时间")).AddSeconds(d2.Hour*3600 + d2.Minute*60 + d2.Second) '第一个节拍结束时间

dr = mr

End If

drs = DataTables("时间记录").Select("[序号] >= " & dr("序号") & " And [工序编号] = '" & dr("工序编号") & "'And [工位] = '" & dr("工位") & "' And [批次] = '" & mr("批次") & "'", "[序号]")

For j As Integer = 1 To drs.Count - 1 '重算余下行的余额

drs(j)("开始时间") = CDate(drs(j-1)("结束时间")) '其余节拍开始时间为同工序编号上一条结束时间

drs(j)("结束时间") = CDate(drs(j)("开始时间")).AddSeconds(d2.Hour*3600 + d2.Minute*60 + d2.Second) '其余节拍结束时间

End If

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目7.foxdb

[此贴子已经被作者于2015/6/18 10:47:49编辑过]

谢谢大红袍老师的回复，是在工位和批次相同值的情况下，开始时间和结束时间分别相同。还望老师指教，谢谢！！

这是一个模拟信息发生模块，节拍时间（jpms2）= 产量 * 工位秒时 * xlfd(xlfd为效率浮动，值为±6%)，第一个循环的开始时间（zdysj）是当天的上午8点整，结束时间为开始时间加上节拍时间。从第二个循环（也就是节拍 = 2）开始，开始时间 = 上一个节拍相同工序编号的结束时间；结束时间为本循环开始时间加上节拍时间，以此类推。因为xlfd是随机产生的。所以现在代码生成的时间都是不同的，而我希望得到的效果是：当工位和节拍（上面的表述有误）分别相同的行，其开始时间和结束时间也分别相同，也就是1~4、5~8.... 行的结束时间相同，21~24、25~28 ...... 行的开始时间和结束时间分别相同，这样更符合实际的情况。还望大红袍老师指教，谢谢！！

谢谢大红袍老师的热心帮助，问题解决。再次衷心感谢大红袍老师！！

主题：[求助]模拟信息的时间填充问题（已解决）