请教高指教如何通过do loop添加资料至另个表

zhuyiwen

1. Public Sub test()
   
2.     Dim N As Long: N = 10       ' 每箱数量
   
3.     Dim L As Long               ' 每箱空余数
   
4.     Dim No As Long              ' 箱号号
   
5.     Dim OrderID As Long         ' 订单号
   
6.     Dim RL As Long              ' 当前记录剩余数
   
7.    
   
8.     ' 清表2
   
9.     CurrentProject.Connection.Execute "DELETE * FROM Table2"
   
10.    
    
11.     Dim rs As ADODB.Recordset   ' 遍历记录集
    
12.    
    
13.     Dim sql As String           ' SQL 语句用于查找Table1, 按订单号排序
    
14.     sql = "select * from table1 order by 订单号"
    
15.    
    
16.     Set rs = CurrentProject.Connection.Execute(sql)
    
17.    
    
18.     Do While Not rs.EOF
    
19.         If OrderID <> rs("订单号") Then
    
20.             OrderID = rs("订单号")
    
21.             No = 1
    
22.             L = N
    
23.         End If
    
24.         
    
25.         RL = rs("数量")
    
26.         Do While RL > 0
    
27.             If RL >= L Then
    
28.                 ' 满一箱
    
29.                 sql = "INSERT INTO Table2 (订单号, 产品, 数量, 箱号) VALUES (" & _
    
30.                     OrderID & ", " & _
    
31.                     "'" & rs("产品") & "', " & _
    
32.                     L & ", " & _
    
33.                     No & ")"
    
34.                 RL = RL - L
    
35.                 L = N
    
36.                 No = No + 1
    
37.             Else
    
38.                 ' 不满一箱
    
39.                 sql = "INSERT INTO Table2 (订单号, 产品, 数量, 箱号) VALUES (" & _
    
40.                     OrderID & ", " & _
    
41.                     "'" & rs("产品") & "', " & _
    
42.                     RL & ", " & _
    
43.                     No & ")"
    
44.                 L = L - RL
    
45.                 RL = 0
    
46.             End If
    
47.             CurrentProject.Connection.Execute sql
    
48.         Loop
    
49.         
    
50.         rs.MoveNext
    
51.     Loop
    
52.     rs.Close
    
53.     Set rs = Nothing
    
54. End Sub

复制代码