主题：排产时间变更

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

哦，代码改成

Select Case e.DataCol.Name
    Case "实际开始日期"
        SystemReady = False
        Dim dt As DataTable = e.DataTable
        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
       
        SystemReady = True
End Select