Select Case e.DataCol.Name
Case "实际开始日期"
SystemReady = False
If e.oldvalue <> Nothing AndAlso e.oldvalue <> e.newvalue Then
Dim dt As DataTable = DataTables("生产排产表")
Dim drs = dt.Select("加工顺序 > " & e.DataRow("加工循序"), "加工顺序")
For i As Integer = 1 To drs.count-1
Dim dr = drs(i-1)
dr("实际完成日期") = cdate(dr("实际开始日期")).adddays(dr("计划数量") / dr("任务量"))
If dr("加工顺序") = drs(i)("加工顺序") Then
drs(i)("实际开始日期") = dr("实际开始日期")
Else
If dr("使用设备") = drs(i)("使用设备") Then
drs(i)("实际开始日期") = dr("实际完成日期")
Else
drs(i)("实际开始日期") = cdate(dr("实际开始日期")).AddHours(8)
End If
End If
dr = drs(i)
dr("实际完成日期") = cdate(dr("实际开始日期")).adddays(dr("计划数量") / dr("任务量"))
Next
End If
SystemReady = True
End Select