关于扫描枪触发ValueChanged问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在文本框的代码为：

Dim no As String = e.Form.Controls("样品编号").Value

Dim dr As DataRow = DataTables("T_Report").SQLFind("报告编号 = '" & no & "'")

If dr IsNot Nothing Then

e.Form.Controls("样品名称").value = dr("样品名称")

e.Form.Controls("客服人员").Value = dr("客服人员")

e.Form.Controls("储存条件").Value = dr("储存条件")

e.Form.Controls("是否抽检").checked = dr("是否抽检")

Else

e.Form.Controls("样品名称").value = Nothing

e.Form.Controls("客服人员").Value = Nothing

e.Form.Controls("储存条件").Value = Nothing

e.Form.Controls("是否抽检").checked = False

End If

扫描枪设置在扫描之后会加回车，但在以下用扫描枪扫描样品编号输入之后不会触发离开控件，请问怎么处理？

此主题相关图片如下：qq截图20180102172758.png

主题：关于扫描枪触发ValueChanged问题