主题：请问如何实现连续扫描条形码，都记录到当前领用部门的记录中，如图示

参考

建议 设置条码的输出格式 为 （值+enter）

把代码放在 keydown 的事件里面

Dim tx As String = e.Form.Controls("TextBox1").text

Dim str As String ="\,|,?,!,@,#,$,%,^,&,*,(,),/,+,~"

If  e.KeyCode = Keys.enter Then

    e.Cancel = True

    Dim strlm As String ="\,|,?,!,@,#,$,%,^,&,*,(,),/,+,~"   '  "防止条形码 发生 神经病,读入错误,操作多了就可能发生了。"

    Dim values() As String

    values =  strlm.Split(",")

    For  vap As Integer = 0 To values.Length -1

        If tx.Contains( values(vap)) Then

            messagebox.show("条码读取错误,请重试")

           goto e

        End If

    Next

------------------------

      你的代码   

------------------------

e:

        e.Form.Controls("TextBox1").text = ""

    e.Form.Controls("TextBox1").Select

End If

这样就可以连续扫描了。