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

有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

狐狸爸爸，我有一点不太明白，让每个条形码对应着一个订单，如何让条形码和订单匹配的。是直接在让条形码绑定订单编号吗？

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

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