主题：老师我现在能做出库扫描了。但是先进先出还是不会做。请指教！

思路：

   1、我是以生产批号作为扫描点进行扫描。现在已经通过看帮助可以出库。

   2、我现在想实现的批号201605210001订单出库后，依次将201605210002、201605210003、201605210004、201605210005、201605210006批号的物品

        放在200310001、200310002、200310003、200310004、200310005 。（按顺序向前进）

   3、我的出库扫描，必须是按顺序扫描，如扫描完1/6车次，不能扫描3/6车次。只能扫描2/6车次、

  第2步想了几天都没想好！特请帮忙。

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

点击浏览该文件:仓库.zip

老师你好！我们是小厂，员工素质都比较差，难免会不按生产批号顺序出库，导致食品过期。所以才有了后面2个规则，限制员工出库。

可以考虑加一列“已出库”，逻辑列，勾选后即刻移除该行，在出库窗口不加载已出库的订单。不知可否有用。。。。。。

  我现在尝试在建两个表，将仓位表单独分开。然后在建入库和出库表，这样还不知道行不行？问题是第二个还是突破不了

难不成扫描完库位你要把整个仓库的货品都搬动一次，就是为了员工能在固定一个库位扫描？

标记一下扫描到哪个库位，下次扫描的时候不断累加下去，到最后以后，就从头开始循环啊。

呵呵，我的是一行行来的，前边搬走了，后边会通过滑轨自动移到前一个。没有说的那么严重把整个仓库都搬一次。

参考代码，单独做一个按钮即可

Dim t As Table = Tables("库位表")

For i As Integer = 1 To t.Rows.count-1
    Dim bh As String = t.Rows(i)("编号")
    t.Rows(i)("编号") = t.Rows(0)("编号")
    t.Rows(0)("编号") = bh
Next
t.Rows(0).move(t.Rows.count-1)