主题：排产时间变更

Select Case e.DataCol.Name
    Case "实际开始日期"
        If e.oldvalue <> Nothing AndAlso e.oldvalue <> e.newvalue Then
            Dim sp As TimeSpan = e.newvalue-e.oldvalue
            For Each r As DataRow In e.DataTable.Select("加工顺序 > " & e.DataRow("加工循序"))
                r("实际完成日期") = cdate(r("实际开始日期")).AddSeconds(sp.TotalSeconds)
            Next
        End If
End Select
SystemReady = True

这个问题你很久以前问过啊，请参考之前给你写的代码啊

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=111698&authorid=0&page=0&star=1

单独做一个按钮执行代码

Dim dt As DataTable = DataTables("生产排产表")
Dim drs = dt.Select("", "加工顺序")
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