主题：分箱功能虽然实现，请专家帮助优化一下，我实现的太繁琐

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:分箱.rar

我是使用窗口1，开始每实现一步用了一个按钮，最后把所有的代码进行了整合，集中到了一键分箱的事件里了，请专家老师帮我优化，而且我还中间用了两个表作为中介。感觉写的太麻烦，但又没有能力修改，是不是可以省去中间的两个表直接实现我的功能。

如何进行分箱，拆分的逻辑是什么？原来是怎么做的，具体代码在哪里？

老师整个项目压缩上传了

此主题相关图片如下：窗口图片.png

老师我是根据数量的循环进行先拆分存储到产品拆分的表里，然后在根据条件，一条条的累加，如果总重量超过500就算一箱完毕，箱号进行加一操作，并且存储到分箱明细表里，然后对分箱明细进行分组查询，生成分箱结果。

看看是不是这种效果

Dim Cols1() As String = {"长度","宽度","厚度","编号","单个重量","编号"}
Dim Cols2() As String = {"长度","宽度","厚度","编号","单个重量","编号"}
Dim dt As DataTable = DataTables("分箱明细")
Dim xh As Integer = 1
Dim sy As Double = 500
For Each dr As DataRow In DataTables("产品数据").Select("[数量] > 0")
    Dim count As Integer = dr("数量")
    Do While count > 0
        Dim ndr As DataRow = dt.AddNew
        For i As Integer = 0 To Cols1.length-1
            ndr(Cols2(i)) = dr(Cols1(i))
        Next
        If dr("单个重量") * count > sy Then '满一箱
            ndr("箱号") = xh
            ndr("数量") = Math.Floor(sy / dr("单个重量"))
            count -= ndr("数量")
            sy = 500
            xh += 1
        Else
            ndr("箱号") = xh
            ndr("数量") = count
            sy -= ndr("数量") * dr("单个重量")
            count -= ndr("数量")
        End If
    Loop
Next

 

谢谢老师就是这种效果