主题：关于库存量的有趣问题，请教各位高手。（附示例）

PS：批号指的是同一厂家同一药品不同时期出厂的编号。

图一所示A药品有两个批次共102粒，B药品两个批次共201粒。

此主题相关图片如下：01.jpg


图二所示现在要对A或B药品作出库处理，分别为5粒和10粒，请问录入人员在客户端录入此出库记录时，在后台如何做到按批号先后自动减库存量？（库存量少的入库较早）

此主题相关图片如下：02.jpg




麻烦各位高手提供一个思路。。。。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:库存批号.table

先进先出，似乎是个很麻烦的问题，帮你顶下。

我的思路是这样，在品种A出库的时候，
（1）对库存表按品种和批号排序
（2）在库存表中查找品种A的第一个批号（最早的），若出库数量小于该批号的库存量，则全部出库数量为该批号（即第一个批号的出库数量等于全部出库数量）；否则，第一个批号的出库数量等于库存数量；
（3）在库存表中查找品种A的第二个批号，重复前面的过程；

只是，我没有打开你的表，从图片上看你的出库表上并没有批号列，不太明白你怎么记录出库的批号，保存在哪儿。

谢谢您提供思路，但是感觉到有点儿复杂，有没有人想到增加冗余列或者冗余表，简化这些过程？

另：出库时，录入人员并不要求知道批号。。

我的理解；出库表无需录入批号，仓管必须按先进先出原则出库，与系统无关。系统根据出库品种数量自动计算与批号有关的库存。以A产品为例：出库数量大于A01批号（最先批）数量，则A02批库存数量 = A01批数量+A02批数量-出库数量。

加一个入库时间，批号仅是辅助供参考。根据入库时间

      其实不要把问题搞复杂了，处方录入时一般也不会输入药品批号，药房发药时也不会按批号发药的，所以，药库表中按药品的批号不同保留不同的行是没有太大的意义。开发管理系统有时不可能完全照搬手工操作方式，即便是不同批号的药品购入价格不同，但从规范管理的角度考虑，也只能执行一个价格，实现起来也就简单得多。当然，在入库表里可以反应药品批号等信息。另外，在药库表中，除了库存数量外，最好还要增加一个“已划价数量”字段，因为划价和减库一般不是同时进行的，划价后要经过缴费、发药后才能减库。
      仅供参考。

下面是按楼主的意思写的代码，不知道行不？我在命令窗口中测试过ok。（注意焦点要在出库表上 如：最后一行）
Dim drs As List(Of DataRow)
drs = DataTables("库存").Select("[药品名称] = '" & currenttable.current("药品名称") & "'","批号")
dim sl as string
dim n as integer
For Each dr As Datarow In drs
    sl = sl & dr("库存量") & "|"
    dim k as integer = sl.split("|")(n)
    dim s as integer
    if k <= currenttable.current("数量")  and currenttable.current("数量")  -k>0 then
        s = dr("库存量")
        dr("库存量") = 0
        n=n+1
    elseif k> currenttable.current("数量") and currenttable.current("数量") -s>0 then
        dr("库存量") = k - (currenttable.current("数量") - s)
        exit for
    end if
next

其实‘库存’表有必要按批号来反映库存量吗？ 如果因价格问题进行成本核算，应该选择‘入库’表中先入库的价格即可。

由于药品库存有一定特殊性，比如同一批号的青霉素，如果三天内曾注射过则不需要皮试，假如换了批号，即使昨天注射过，今天也要进行皮试。所以库存管理必须要有批号。

8楼代码精简些：
Dim drs As List(Of DataRow)
drs = DataTables("库存").Select("[药品名称] = '" & currenttable.current("药品名称") & "'","批号")
dim sl as string
dim n as integer
For Each dr As Datarow In drs
    dim k as integer = dr("库存量")
    dim s as integer
    if k <= currenttable.current("数量")  and currenttable.current("数量")  -k>=0 then
        s = dr("库存量")
        dr("库存量") = 0
    elseif k> currenttable.current("数量") and currenttable.current("数量") -s>0 then
        dr("库存量") = k - (currenttable.current("数量") - s)
        exit for
    end if
next