請教各位大神，想用VB6.0實作貨位號中捆數的增減。比如貨位號有A01、A02、A03.每個貨位號中可以放的貨物的數量為a，b，c，其中a,b,c的數值是每次人為給定的，如果每個貨物都是合格的則每次往貨位A01中放一個貨物則貨物數量a相對應的就減一，一直減到0，再分給下一個貨位A02，以此類推。假如在往A01貨位中放貨物時有不合格的，則人為判定不合格后將a之前減去的1再加回來。（因為是先存資料庫然后再判定不合格的，但是這個不合格的判定會在下一個物品來之前進行判定）此時出現的問題是，如果A02貨位中有判廢的那么下次他分出來的還是A01,其實應該是補給A02的，不知道加什么條件讓他只限制在本貨位號上的數量進行加減。求大神指導。
這個圖片中的Text18.Text為A01的貨物數量，Text20.Text為A02的貨物數量。
uj5u.com熱心網友回復：
有這么復檢 - -暈。每個倉位的還剩的數，待檢的數量。不是用資料庫嗎？有這兩個數，不好判斷 嗎uj5u.com熱心網友回復：
貨位無非進貨和出貨，應該有一個貨位陣列 A(0 to max)，里面存盤每個貨柜目前可用的數量
每次進貨的時候，你描述的例子是每次給1，其實每次給n都是相同的操作:
for i = 0 to max
if n > A(i) then
n = n - A(i)
A(i) = 0
else
A(i) = A(i) - n
n = 0
exit for
end if
next
'回圈過后，檢查一下是否有貨位不夠的情況：
if n>0 then msgbox "貨位不夠，還有" & n & "個沒處放"
每次出貨（有不合格的也相當于出貨），在哪個貨位出，就在 A(貨位編號)上加上相應的出貨數量。當然如果出貨數量是否超過貨位上的存貨量你要檢查一下。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/40426.html
標籤：VBA