VB6.0的问题

显示全部楼层 · 2021-1-27 05:40:10

请教各位大神，想用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的货物数量。
分 -->

千问 · 2021-1-27 05:40:10

有这么复检--晕。每个仓位的还剩的数，待检的数量。不是用数据库吗？有这两个数，不好判断吗

千问 · 2021-1-27 05:40:10

货位无非进货和出货，
应该有一个货位数组A(0tomax)，里面存储每个货柜目前可用的数量
每次进货的时候，你描述的例子是每次给1，其实每次给n都是相同的操作:
fori=0tomax
ifn>A(i)then
n=n-A(i)
A(i)=0
else
A(i)=A(i)-n
n=0
exitfor
endif
next
'循环过后，检查一下是否有货位不够的情况：
ifn>0thenmsgbox"货位不够，还有"&n&"个没处放"
每次出货（有不合格的也相当于出货），在哪个货位出，就在A(货位编号)上加上相应的出货数量。当然如果出货数量是否超过货位上的存货量你要检查一下。