排产求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、具体例子发上来。

2、具体说明一个例子，在你发上来的项目里，举例说明执行代码后，最终的结果是什么。

If e.Sender.Checked Then
    Dim t1 As Table = e.Form.Controls("生产排产分配表").Table
    Dim filter As String = "成品编码 = '" & e.Form.Controls("成品编码1").text & "'"
    Tables("产品工艺路线").Filter = filter
    Tables("产品工艺路线").Sort = "加工顺序"
    For Each dr As Row In e.Form.Controls("生产在制").Table.Rows
        Dim pr As Row = Tables("产品工艺路线").Rows(0)
        Dim jhsl As Integer = dr("计划数量")

        Dim t As Table = e.Form.Controls("生产排产分配表").Table
        Dim nr As Row = t.AddNew
        nr("线别") = e.Form.Controls("线别").text
        nr("使用设备") = pr("使用设备")
        nr("成品编码") = pr("成品编码")
        nr("设备类型") = pr("设备类型")
        nr("成品描述") = pr("成品描述")
        nr("加工工序") = pr("加工工序")
        nr("加工内容") = pr("加工内容")
        nr("设备名称") = pr("设备名称")
        nr("循环时间") = pr("循环时间")
        nr("加工顺序") = pr("加工顺序")
        nr("计划数量") = jhsl
        Dim d As Date = dr("计划开始日期")
        Dim fdr = t.DataTable.Find("使用设备 = '" & pr("使用设备") & "' and 预计结束日期 is not null", "预计结束日期 desc")
        If fdr IsNot Nothing Then d = fdr("预计结束日期")
        nr("开始日期") = d
        nr("预计结束日期") = d.AddMinutes(nr("循环时间")*jhsl)

        Dim pr2 As Row
        Dim nr2 As Row
        For i As Integer = 1 To Tables("产品工艺路线").Rows.Count - 1
            pr2 = Tables("产品工艺路线").Rows(i)
            If pr2("加工工序") = pr("加工工序") AndAlso pr2("设备类型") = "B"
                pr = pr2
                Continue For
            End If
            nr2 = t.AddNew
            nr2("线别") = dr("线别")
            nr2("使用设备") = pr2("使用设备")
            nr2("成品编码") = pr2("成品编码")
            nr2("设备类型") = pr2("设备类型")
            nr2("成品描述") = pr2("成品描述")
            nr2("加工工序") = pr2("加工工序")
            nr2("加工内容") = pr2("加工内容")
            nr2("设备名称") = pr2("设备名称")
            nr2("循环时间") = pr2("循环时间")
            nr2("加工顺序") = pr2("加工顺序")
            nr2("计划数量") = jhsl
            If pr2("使用设备") = pr("使用设备") Then
                d = nr("预计结束日期")
            Else
                fdr = t.DataTable.Find("使用设备 = '" & pr("使用设备") & "' and 预计结束日期 is not null", "预计结束日期 desc")

                If fdr IsNot Nothing Then
                    d = fdr("预计结束日期")
                Else
                    d = nr("开始日期")
                    d = d.AddDays(1)
                End If
            End If
            nr2("开始日期") = d
            nr2("预计结束日期") = d.AddMinutes(nr2("循环时间")*jhsl)
            nr = nr2
            pr = pr2
        Next
    Next
End If

If e.Sender.Checked Then
    Dim dt As DataTable = DataTables("设备维保记录")

    Dim t1 As Table = e.Form.Controls("生产排产分配表").Table
    Dim filter As String = "成品编码 = '" & e.Form.Controls("成品编码1").text & "'"
    Tables("产品工艺路线").Filter = filter
    Tables("产品工艺路线").Sort = "加工顺序"
    For Each dr As Row In e.Form.Controls("生产在制").Table.Rows
        Dim pr As Row = Tables("产品工艺路线").Rows(0)
        Dim jhsl As Integer = dr("计划数量")

        Dim t As Table = e.Form.Controls("生产排产分配表").Table
        Dim nr As Row = t.AddNew
        nr("线别") = e.Form.Controls("线别").text
        nr("使用设备") = pr("使用设备")
        nr("成品编码") = pr("成品编码")
        nr("设备类型") = pr("设备类型")
        nr("成品描述") = pr("成品描述")
        nr("加工工序") = pr("加工工序")
        nr("加工内容") = pr("加工内容")
        nr("设备名称") = pr("设备名称")
        nr("循环时间") = pr("循环时间")
        nr("加工顺序") = pr("加工顺序")
        nr("计划数量") = jhsl
        Dim d As Date = dr("计划开始日期")
        Dim fdr = t.DataTable.Find("使用设备 = '" & pr("使用设备") & "' and 预计结束日期 is not null", "预计结束日期 desc")
        If fdr IsNot Nothing Then d = fdr("预计结束日期")
        nr("开始日期") = d
        nr("预计结束日期") = d.AddMinutes(nr("循环时间")*jhsl)
        Dim drs = dt.Select("设备编码 = '" & pr("使用设备") & "'")
        For Each dr1 As DataRow In drs
            Dim d1 As Date = dr1("异常日期")
            Dim d2 As Date = dr1("计划结束日期")
            Dim d3 As Date = d
            Dim d4 As Date = nr("预计结束日期")
            If d3 <= d1
                If d4 >= d2 Then
                    Dim sp As TimeSpan = d2-d1
                    nr("预计结束日期") = d4.AddMinutes(sp.TotalMinutes)
                ElseIf d4 >= d1 Then
                    Dim sp As TimeSpan = d4-d1
                    nr("预计结束日期") = d2.AddMinutes(sp.TotalMinutes)
                End If
            ElseIf d3 <= d2 Then
                If d4 <= d2 Then
                    nr("开始日期") = d2
                    nr("预计结束日期") = d2.AddMinutes(nr("循环时间")*jhsl)
                ElseIf d4 >= d2 Then
                    nr("开始日期") = d2
                    nr("预计结束日期") = d2.AddMinutes(nr("循环时间")*jhsl)
                End If
            End If
        Next
        Dim tnr = nr
        For i As Integer = 1 To Tables("产品工艺路线").Rows.Count - 1
            pr = Tables("产品工艺路线").Rows(i)
            nr = t.AddNew
            nr("线别") = dr("线别")
            nr("使用设备") = pr("使用设备")
            nr("成品编码") = pr("成品编码")
            nr("设备类型") = pr("设备类型")
            nr("成品描述") = pr("成品描述")
            nr("加工工序") = pr("加工工序")
            nr("加工内容") = pr("加工内容")
            nr("设备名称") = pr("设备名称")
            nr("循环时间") = pr("循环时间")
            nr("加工顺序") = pr("加工顺序")
            nr("计划数量") = jhsl

            fdr = t.DataTable.Find("使用设备 = '" & pr("使用设备") & "' and 预计结束日期 is not null", "预计结束日期 desc")

            If fdr IsNot Nothing Then
                d = fdr("预计结束日期")
            Else
                d = tnr("预计结束日期")
            End If

            nr("开始日期") = d
            nr("预计结束日期") = d.AddMinutes(nr("循环时间")*jhsl)

            drs = dt.Select("设备编码 = '" & pr("使用设备") & "'")
            For Each dr1 As DataRow In drs
                Dim d1 As Date = dr1("异常日期")
                Dim d2 As Date = dr1("计划结束日期")
                Dim d3 As Date = d
                Dim d4 As Date = nr("预计结束日期")
                If d3 <= d1
                    If d4 >= d2 Then
                        Dim sp As TimeSpan = d2-d1
                        nr("预计结束日期") = d4.AddMinutes(sp.TotalMinutes)
                    ElseIf d4 >= d1 Then
                        Dim sp As TimeSpan = d4-d1
                        nr("预计结束日期") = d2.AddMinutes(sp.TotalMinutes)
                    End If
                ElseIf d3 <= d2 Then
                    If d4 <= d2 Then
                        nr("开始日期") = d2
                        nr("预计结束日期") = d2.AddMinutes(nr("循环时间")*jhsl)
                    ElseIf d4 >= d2 Then
                        nr("开始日期") = d2
                        nr("预计结束日期") = d2.AddMinutes(nr("循环时间")*jhsl)
                    End If
                End If
            Next
            tnr = nr
        Next
    Next
End If

1、你生产排产表的数据没有保存下来？

2、你应该做一个临时生产排产表，得到数据后，填充到总的生成排产表去。

3、不会变动，如果需要变动，那你就必须重新生成重新计算。

nuoyan88	小大 31楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2017/11/13 14:14:00 [只看该作者] 用户已被锁定

nuoyan88	小大 32楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2017/11/13 14:16:00 [只看该作者] 用户已被锁定

nuoyan88	小大 34楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2017/11/13 16:42:00 [只看该作者] 用户已被锁定

nuoyan88	小大 36楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2017/11/13 20:29:00 [只看该作者] 用户已被锁定

nuoyan88	小大 38楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2017/11/14 12:25:00 [只看该作者] 用户已被锁定

nuoyan88	小大 40楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：九尾狐帖子：2159 积分：14971 威望：0 精华：0 注册：2017/10/12 13:00:00	Post By：2017/11/14 13:48:00 [只看该作者] 用户已被锁定

主题：排产求助