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

每个订单都带条形码，如果扫描条形码，第一次扫描能将订单的开始时间录入，订单完成后再次扫描，可以将完成时间录入到对应的单元格内。

该如何设置操作啊！

设计个窗口，在窗口某textbox接收扫描结果,设置textbox的keydown事件：

if e.Keycode= keys.Enter  then

    Dim s String = e.Sender.Text

    dim dr As Datarow = datatables("表名").Find("订单编号 = \'"& s & "\'")

    if dr isnot nothing then

       dr("完成时间") = date.now

   Else

       dr = datatables("表名").AddNew()

        dr("开始时间") = Date.now

   End if

   e.sender.Value = Nothing

   e.Cancel = True

end if

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

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

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

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

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

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

不用回车，一扫而就。

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

呵呵，扫描枪一般会自动跟一个回车，表示扫描结束。

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