请教如何用追加查询分类配额

lin2003_lin

a表
单号       类别    需求数额    配额    差额
t1101     a01      500            0        -500
t1102     a01      300            0        -300
t1105     b01      600            0        -600
t1107     b01      400            0        -400
t1115     b01      800            0        -800

b表
类别    剩余数量   
a01      1500                     
b01      1200      

如何实现讲b表的数据逐一分配给a表   
得出以下结果
单号       类别    需求数额    配额    差额
t1101     a01      500           500      0
t1102     a01      300           300      0
t1105     b01      600           600      0
t1107     b01      400           400      0
t1115     b01      800           200     -600

   
           

Henry D. Sy

把例子传上来，研究研究！

lin2003_lin

Henry D. Sy 发表于 2011-12-22 10:14
把例子传上来，研究研究！

谢谢赐教！

lin2003_lin

谢谢赐教！

Henry D. Sy

1. Private Sub Command0_Click()
   
2.     Dim rs As New ADODB.Recordset
   
3.     Dim rst As New ADODB.Recordset
   
4.     Dim cnn As New ADODB.Connection
   
5.     Dim sSQL As String
   
6.     Dim lngBal As Long
   
7.     Set cnn = CurrentProject.Connection
   
8.     sSQL = "select  类别,剩余数量 from b"
   
9.     rs.Open sSQL, cnn, adOpenKeyset, adLockReadOnly
   
10. 
    
11.     Do While Not rs.EOF
    
12.         lngBal = rs.Fields("剩余数量")
    
13.         sSQL = "select * from a where 类别='" & rs.Fields("类别") & "'"
    
14.         rst.Open sSQL, cnn, adOpenKeyset, adLockOptimistic
    
15.         With rst
    
16.             Do While Not .EOF
    
17.                 If lngBal >= .Fields("需求数额") Then
    
18.                     .Fields("配额") = .Fields("需求数额")
    
19.                 Else
    
20.                     .Fields("配额") = lngBal
    
21.                 End If
    
22.                 .Fields("差额") = .Fields("配额") - .Fields("需求数额")
    
23.                 lngBal = lngBal - .Fields("配额")
    
24.                 .Update
    
25.                 .MoveNext
    
26.             Loop
    
27.             .Close
    
28.         End With
    
29.         rs.MoveNext
    
30.     Loop
    
31.     rs.Close
    
32.     Set rs = Nothing
    
33.     Set rst = Nothing
    
34.     Set cnn = Nothing
    
35. End Sub

复制代码

Henry D. Sy

建议在b中增加一字段：分配后余额，用于显示实际库存
则代码调整如下：

1. Private Sub Command0_Click()
   
2.     Dim rs As New ADODB.Recordset
   
3.     Dim rst As New ADODB.Recordset
   
4.     Dim cnn As New ADODB.Connection
   
5.     Dim sSQL As String
   
6.     Dim lngBal As Long
   
7.     Dim lngUsed As Long
   
8.     Set cnn = CurrentProject.Connection
   
9.     sSQL = "select  类别,剩余数量,分配后余额 from b"
   
10.     rs.Open sSQL, cnn, adOpenKeyset, adLockOptimistic
    
11. 
    
12.     Do While Not rs.EOF
    
13.         lngBal = rs.Fields("剩余数量")
    
14.         lngUsed = 0
    
15.         sSQL = "select * from a where 类别='" & rs.Fields("类别") & "'"
    
16.         rst.Open sSQL, cnn, adOpenKeyset, adLockOptimistic
    
17.         With rst
    
18.             Do While Not .EOF
    
19.                 If lngBal >= .Fields("需求数额") Then
    
20.                     .Fields("配额") = .Fields("需求数额")
    
21.                 Else
    
22.                     .Fields("配额") = lngBal
    
23.                 End If
    
24.                 .Fields("差额") = .Fields("配额") - .Fields("需求数额")
    
25.                 lngBal = lngBal - .Fields("配额")
    
26.                 lngUsed = lngUsed + .Fields("配额")
    
27.                 .Update
    
28.                 .MoveNext
    
29.             Loop
    
30.             .Close
    
31.         End With
    
32.         rs.Fields("分配后余额") = rs.Fields("剩余数量") - lngUsed
    
33.         rs.Update
    
34.         rs.MoveNext
    
35.     Loop
    
36.     rs.Close
    
37.     Set rs = Nothing
    
38.     Set rst = Nothing
    
39.     Set cnn = Nothing
    
40. End Sub
    
41. 
    

复制代码

lin2003_lin

谢谢！
万分感谢！应用于窗体很实用。

自己用查询实现！查询“D”的“配额V”，“差额V”得出想要的结果！

lin2003_lin

Henry D. Sy 发表于 2011-12-22 12:05
建议在b中增加一字段：分配后余额，用于显示实际库存
则代码调整如下：

谢谢！

lin2003_lin

Henry D. Sy 发表于 2011-12-22 12:05
建议在b中增加一字段：分配后余额，用于显示实际库存
则代码调整如下：

想要B表追加一次后，后续数字改变了，要继续追加，先判断配额是否足够，已配足的不再配额，不足的继续配足。

请帮我修改一下你的代码。

Henry D. Sy

lin2003_lin 发表于 2011-12-22 14:01
想要B表追加一次后，后续数字改变了，要继续追加，先判断配额是否足够，已配足的不再配额，不足的继续配足 ...

什么意思