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

Dim tx As String = e.Form.Controls("txtBarcode").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("txtBarcode").text = ""

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

End If

按顺序这样设置后，暂时是手工输入条码，按ENTER后带出数据，但还是会跳到下一格，是什么问题呢？请老师指点一下，谢谢