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

下面是按楼主的意思写的代码，不知道行不？我在命令窗口中测试过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

我上面的代码可以用吗？
不了解行业特点啊～ 那么某批号的库存量为零时，要删除掉该条库存记录吗？  否则，n年后，库存中有一大批库存量为零的记录了。
若放在出库表的datacolchanged中 
if e.datacol.name = "数量"
     这里用10楼代码
end if

看来不能跨批号出库了！～ 否则，可能将不同批号的药品发给同一个患者使用，恐出现‘青霉素’批号混用的现象，  那么条件设为这样：
    if k>= currenttable.current("数量") and currenttable.current("数量") >0 then
        dr("库存量") = k - currenttable.current("数量") 
        exit for
    end if