关于数字的拆分问题：

yanwei82123300

包装号：就是这个产品的包装号，包装箱号就是这个包装号下面的第几箱（包装号\包装箱号\.....）

roych

修改字段“包装箱号”为长整型或者其它数值型数据类型。网速不给力，不传附件了，代码如下：

1. Private Sub Command10_Click()
   
2. Dim rst As New ADODB.Recordset
   
3. Dim rst2 As New ADODB.Recordset
   
4. Dim s As Long
   
5. s = 1
   
6. If Me.箱包装数量 > 0 Then
   
7.     rst.Open "temp", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
8.     rst2.Open "tblPacklistdetail", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
   
9.     For j = 1 To rst2.RecordCount
   
10.         For i = 1 To rst2("订单数量") / rst2("箱包装数量")
    
11.             rst.AddNew
    
12.             rst("产品号") = rst2("产品号")
    
13.             rst("产品描述") = rst2("产品描述")
    
14.             rst("订单数量") = rst2("订单数量") / rst2("箱包装数量")
    
15.             rst("包装箱号") = s
    
16.             rst("箱包装数量") = rst2("箱包装数量")
    
17.             rst("包装号") = rst2("包装号")
    
18.             rst.Update
    
19.             s = s + 1
    
20.         Next
    
21.         rst2.MoveNext
    
22.     Next
    
23. End If
    
24. rst.Close
    
25. MsgBox "Done"
    
26. End Sub
    

复制代码

请好好理解变量的【生命周期】。

yanwei82123300

roych老师：
按照您的代码做了，但是出现一个问题：
我的目的是
同一运单号号下面
的数据进行包装号的排序。
您的代码是将所有数据进行排序了。
请帮助修改一下，谢谢：

ShipmentNO （运单号）
PackageNo   （包装号）
Pack_qty  箱包装数量（每箱包装数量）:

yanwei82123300

首先已经运单号，然后依据 包装号，生成包装箱号

yanwei82123300

请大家看看：
突然发现一个问题，也许是没有弄清楚做箱单的程序：
例如一个订单：订单数量是12 每箱装2台 包装号1 里面 装了3 箱 （即包装箱号 1 2 3；每箱2台）；包装号15装了3箱（即包装箱号 1 2 3；每箱2台），共计：2个包装号 6箱
如果按照roych 老师的代码运算就会出现重复数据：包装号1 装了6 箱；包装号15装了6箱.

roych

rst("订单数量") = rst2("订单数量") / rst2("箱包装数量")

请注意，这一句代码是把订单全部分装的。订单数量是12，每箱装2台，自然得到：12/2=6箱了。这完全是根据你之前的流程来写的代码。
而如今看来，你的流程根本不是这样，而是：在分装过程中，先把订单分为多个包装号，再由每个包装号分装到包装箱。
因此，先要计算出每张订单由几个包装号组成，再根据每一张包装号的订单数进行分箱。

对于同一个问题，我是向来经不起一再折腾的，这个问题我想我不会再关注了。而且思路讲得也是相当清楚了，相信你可以完成的。

yanwei82123300

roych 老师谢谢帮助了，打搅您了！！