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

此主题相关图片如下：360截图16440622639573.png

订单分拆问题请教如何实现我想要的功能上次询问了一次看了帮助文件感觉不是我想要的时间提醒我可以做但是分单这个真没有想法

如果我不想做成控件模式可以吗感觉就是表格简单明了

1、做什么操作的时候拆分？如何拆分？

2、请上传具体的项目测试，说明操作步骤，以及最后需要得到的效果。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:丹东恒锐.table

此主题相关图片如下：360截图1653071299149120.png

If e.DataCol.name = "系统拆分" OrElse e.DataCol.name = "供货批次" Then
    If e.DataRow("系统拆分") = True Then
        If e.DataRow("供货批次") <> Nothing Then
            e.DataTable.DeleteFor("订单分批次号 like '" & e.DataRow("订单编号") & "%' and 订单分批次号 <> '" & e.DataRow("订单编号") & "-01'")
            Dim n1 As Double = e.DataRow("产品数量") / e.DataRow("供货批次")
            Dim n2 As Double = (e.DataRow("大订单截止日期") - e.DataRow("大订单开始日期")).TotalDays / e.DataRow("供货批次")
            e.DataRow("订单分批次号") = e.DataRow("订单编号") & "-01"
            e.DataRow("检验日期") = e.DataRow("大订单开始日期").adddays(n2)
            e.DataRow("分批次数量") = n1
            For i As Integer = 2 To e.DataRow("供货批次")
                Dim ndr As DataRow = e.DataTable.addnew
                ndr("订单分批次号") = e.DataRow("订单编号") & format(i, "-00")
                ndr("检验日期") = e.DataRow("大订单开始日期").adddays(n2)
                ndr("分批次数量") = n1
            Next
        End If
    ElseIf e.DataCol.name = "系统拆分" AndAlso e.oldvalue = True Then
        e.DataTable.DeleteFor("订单分批次号 like '" & e.DataRow("订单编号") & "%' and 订单分批次号 <> '" & e.DataRow("订单编号") & "-01'")
    End If
End If

此主题相关图片如下：360截图164309219410389.png

调试后出现两个问题并没有达到我想要的结果还望老师再帮忙一下

1、你勾选以后，不要取消勾选啊，取消就会删除数据的啊

2、

If e.DataCol.name = "系统拆分" OrElse e.DataCol.name = "供货批次" Then
    If e.DataRow("系统拆分") = True Then
        If e.DataRow("供货批次") <> Nothing Then
            e.DataTable.DeleteFor("订单分批次号 like '" & e.DataRow("订单编号") & "%' and 订单分批次号 <> '" & e.DataRow("订单编号") & "-01'")
            Dim n1 As Double = e.DataRow("产品数量") / e.DataRow("供货批次")
            Dim n2 As Double = (e.DataRow("大订单截止日期") - e.DataRow("大订单开始日期")).TotalDays / e.DataRow("供货批次")
            e.DataRow("订单分批次号") = e.DataRow("订单编号") & "-01"
            e.DataRow("检验日期") = e.DataRow("大订单开始日期").adddays(n2)
            e.DataRow("分批次数量") = n1
            For i As Integer = 2 To e.DataRow("供货批次")
                Dim ndr As DataRow = e.DataTable.addnew
                ndr("订单分批次号") = e.DataRow("订单编号") & format(i, "-00")
                ndr("检验日期") = e.DataRow("大订单开始日期").adddays(n2*i)
                ndr("分批次数量") = n1
            Next
        End If
    ElseIf e.DataCol.name = "系统拆分" AndAlso e.oldvalue = True Then
        e.DataTable.DeleteFor("订单分批次号 like '" & e.DataRow("订单编号") & "%' and 订单分批次号 <> '" & e.DataRow("订单编号") & "-01'")
    End If
End If

此主题相关图片如下：360截图16230314383458.png

是我没表达清楚这个是另一种模式的意思图片点击可在新窗口打开查看

请先说明操作步骤：

1、输入4，就生成对应的4行？

2、然后，分批时间，生成检验日期？

主题：订单分拆