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

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

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

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

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)