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

Henry D. Sy

先判断配额是否足够，
判断哪个？b表的剩余数量够分吗？

lin2003_lin

Henry D. Sy 发表于 2011-12-22 14:55
什么意思

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

t1115     b01    还差600，B表在分配后为0时数据将会清空，后续B表增加数量时再次对t1115     b01 进行配额

lin2003_lin

Henry D. Sy 发表于 2011-12-22 14:57
先判断配额是否足够，
判断哪个？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

那么现在的b表还是1200的话（本来已经分配完了为“0”，假设再增加1200），重新点击按钮，结果还是差600，我希望当再次点击按钮的时候，
能把600的差额分配给t1115     b01 ， b表剩余600

这样的话，当a表的b01继续增加需求，假使400，那么再次点击按钮，能继续将剩余的600分配400给新的需求

lin2003_lin

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

不希望增加一字段，而是将“分配后余额”直接代替元“剩余数量”

Henry D. Sy

lin2003_lin 发表于 2011-12-22 15:27
不希望增加一字段，而是将“分配后余额”直接代替元“剩余数量”

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. 
   
8.     Set cnn = CurrentProject.Connection
   
9. 
   
10.     sSQL = "select  类别,剩余数量 from b"
    
11.     rs.Open sSQL, cnn, adOpenKeyset, adLockOptimistic
    
12. 
    
13.     Do While Not rs.EOF
    
14.         lngBal = rs.Fields("剩余数量")
    
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 .Fields("差额") <> 0 Or lngBal <> 0 Then
    
20.                     If lngBal >= Abs(.Fields("差额")) Then
    
21.                         .Fields("配额") = .Fields("配额") + Abs(.Fields("差额"))
    
22.                         lngBal = lngBal - Abs(.Fields("差额"))
    
23.                     Else
    
24.                         .Fields("配额") = .Fields("配额") + lngBal
    
25.                         lngBal = 0
    
26.                     End If
    
27.                     .Fields("差额") = .Fields("配额") - .Fields("需求数额")
    
28.                     .Update
    
29.                     rs.Fields("剩余数量") = lngBal
    
30.                     rs.Update
    
31.                 End If
    
32.                 .MoveNext
    
33.             Loop
    
34.             .Close
    
35.         End With
    
36.         rs.MoveNext
    
37.     Loop
    
38.     Me.a.Requery
    
39.     Me.b.Requery
    
40.     rs.Close
    
41.     Set rs = Nothing
    
42.     Set rst = Nothing
    
43.     Set cnn = Nothing
    
44. End Sub
    

复制代码

Henry D. Sy

附件老是传不上

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. 
   
8.     Set cnn = CurrentProject.Connection
   
9. 
   
10.     sSQL = "select  类别,剩余数量 from b"
    
11.     rs.Open sSQL, cnn, adOpenKeyset, adLockOptimistic
    
12. 
    
13.     Do While Not rs.EOF
    
14.         lngBal = rs.Fields("剩余数量")
    
15.         If lngBal <> 0 Then
    
16.             sSQL = "select * from a where 类别='" & rs.Fields("类别") & "'"
    
17.             rst.Open sSQL, cnn, adOpenKeyset, adLockOptimistic
    
18.             With rst
    
19.                 Do While Not .EOF
    
20.                     If .Fields("差额") <> 0 Then
    
21.                         If lngBal >= Abs(.Fields("差额")) Then
    
22.                             .Fields("配额") = .Fields("配额") + Abs(.Fields("差额"))
    
23.                             lngBal = lngBal - Abs(.Fields("差额"))
    
24.                         Else
    
25.                             .Fields("配额") = .Fields("配额") + lngBal
    
26.                             lngBal = 0
    
27.                         End If
    
28.                         .Fields("差额") = .Fields("配额") - .Fields("需求数额")
    
29.                         .Update
    
30.                         rs.Fields("剩余数量") = lngBal
    
31.                         rs.Update
    
32.                     End If
    
33.                     .MoveNext
    
34.                 Loop
    
35.                 .Close
    
36.             End With
    
37.         End If
    
38.         rs.MoveNext
    
39.     Loop
    
40.     Me.a.Requery
    
41.     Me.b.Requery
    
42.     rs.Close
    
43.     Set rs = Nothing
    
44.     Set rst = Nothing
    
45.     Set cnn = Nothing
    
46. End Sub
    

复制代码

Henry D. Sy

lin2003_lin

Henry D. Sy 发表于 2011-12-23 13:24

谢谢

运行错误“13”

lin2003_lin

Henry D. Sy 发表于 2011-12-23 13:23