跪求出入库VBA

hehex · 发表于 2012-11-1 13:32

添加了出库模块请参考，做了一个数据库自查模块，供入库和出库模块调用。
出库模块算法如下：
1. 按批号出库，如果批号不存在，退出-保留出库单数据供修改
2. 按批号检索数量：(三种情况）
a. 出库单数量大于库存 (报错退出)-保留该条出库单数据供修改
b. 出库单数量等于库存(数据库内删除该批号记录）
c. 出库单数量小于库存(对数据库该批号数量做减法操作，然后保存该结果在数量内，其他项保留）
其中b,c 操作后都会将出库单上相应数据删除。

数据库工作表自查模块:
就是当入库单出现重复批号记录时，数据库内可能出现重复批号的状况，对数据库的重复批号
采取的算法是合并数量，并删除第2-第n 条重复批号记录只保留第一条。

几张表格的格式不可以变更，否则程序可能出错。
详见附件：

WJD1163 · 发表于 2012-11-1 13:45

报错了!!!!

hehex · 发表于 2012-11-1 14:11

看看这个版本。

WJD1163 · 发表于 2012-11-1 18:07

本帖最后由 WJD1163 于 2012-11-1 18:20 编辑

就是这效果,哈哈,谢谢你!!{:soso_e100:}

还有一点能不能改一下!

数据库工作表自查模块:
就是当入库单出现重复批号记录时，数据库内可能出现重复批号的状况，对数据库的重复批号
采取的算法是合并数量，并删除第2-第n 条重复批号记录只保留第一条。

对于这个重复的批号与仓位相同时进行合并,而对批号或仓位其中有一个不同时,都进行记录,这样行吗??

hehex · 发表于 2012-11-1 22:47

本帖最后由 hehex 于 2012-11-1 22:48 编辑

可以，但是有一种情况你要考虑下，比如说数据库表有某批号的入库记录2条，批号相同仓位不同。
比如说: 批号  仓位数量
   sf133  A30 20
      sf133  A20 15

这时候某张出库单要求批号sf133 数量30个，因为出库的算法是基于批号的，按目前的算法这条出库单无法处理出库，因为数据表每一条记录的数量都不够，当然可以考虑修改。
但是如果出现这种出库情况，是返回无法出库还是按数据表相同批号数量和来出库？如果按和出库的话，保留哪一条仓位记录在数据库表内？

WJD1163 · 发表于 2012-11-2 10:11

本帖最后由 WJD1163 于 2012-11-2 10:12 编辑

主要是考虑仓位出库的,当他有两批放在不同的仓位时,而要出的数量大于单一批,要两批的和才够出的话,我们是分开一起出完他,然后重新再进仓的,所以返回无法出库就可以了,作这个表,我主要的用途是要快速的知道我所要的批号放在那个位置,进行规范的操作,数量还是其次的,还有一个,要快速的查找所要的批号要怎么找呀,我用公式VLOOKUP找不到所要的信息,能不能帮我一起用VBA搞吗?
我找不到是那出问题了???

hehex · 发表于 2012-11-2 11:19

上面的问题我基本明白你的意图了，准备修改代码以实现。
今天工作比较忙，可能要多等一点时间,只能抽空改代码。

WJD1163 · 发表于 2012-11-2 12:03

嗯,在这先谢你了!!{:soso_e100:}

hehex · 发表于 2012-11-2 15:42

按照你的要求更新了代码，请测试一下。
今天工作怒多，只能抽空写写代码，自己都感觉结构一团糟。
代码改动较大，你拿回去仔细测试一下。
乘在电话会议上不用我发言的时候，比如现在抽空模拟一点数据简单测试了一下，好像是工作的。

WJD1163 · 发表于 2012-11-2 18:34

在工作之余还要帮我,真的十分感谢呀!!!!有劳了!!
在出库与入库那有报错,请帮我再看一下呀!!!

		自动登录	找回密码
密码			免费注册