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

设计个窗口，在窗口某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

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

有find，看2楼。

如果订单编号事先输入，代码改为：

if e.Keycode= keys.Enter  then

    Dim s String = e.Sender.Text

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

    if dr isnot nothing then

        if dr.isnull("开始时间") then

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

        else

            dr("结束时间") = Date.now

         end if

   End if

   e.sender.Value = Nothing

   e.Cancel = True

end if

你都把我绕糊涂了，条形码是个图片，这个图片不是凭空来的，是根据订单编号生成的，这个条形码本身就是订单编号，只是为了方便扫描设备识别，以图片而不是文字的形式表示。

你可以根据任何列的内容生成一个条码，这是编码的过程，扫描条码得到字符内容，这是解码的过程。