主题：关于条形码的问题，新手求指导！

判断第几次扫描，容易操作失误：因为各种原因，一瞬间就可能扫描了好几次。

可以在窗口中加一个复选框，不勾是第一次，勾上是第二次；也可以加一对单选框：第一次、第二次。

第一次就在生产时间填入日期，第二次就在完成时间填入日期。

第一次扫描，还要判断是否已经有该订单，有，就提示，没有就正常填入日期。

第二次扫描，也要判断是否已经有该订单，有，就正常填入日期，没有就提示。

没用过条码扫描，猜一下：

不用回车，一扫而就。

TextChanged

Dim s As String = e.Sender.Text
If  s.Length = 9 Then  '猜测条码的长度，应该是固定的
    Dim dr As DataRow = DataTables("表A").Find("条码编号 = '"& s & "'")
    If dr IsNot Nothing Then
        dr("结束时间") = Date.Now
    Else
        dr = DataTables("表A").AddNew()
        dr("条码编号") = s
        dr("开始时间") = Date.Now
    End If
    e.sender.Text = ""

End If

超市里，有时扫描枪坏了，需人工录入，我那代码就能省事了。