主题：求助，扫描条码不能自动输入的问题

窗口中扫描条码不能自动输入到表中单元格的问题

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新管理项目2.foxdb

请老师帮忙看一下代码

代码在哪？

请老师帮我看一下

 哪个窗口哪个控件，要做什么功能？

想通过窗口借阅管理，首先扫描借书证条码，自动录入借书人信息

然后，扫描图书条码自动录入图书信息

改一下代码

 

Dim tx As String = e.Form.Controls("TextBox3").text
Dim str As String ="\,|,?,!,@,#,$,%,^,&,*,(,),/,+,~"
If  e.KeyCode = Keys.enter Then
    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
            e.Cancel = True
            messagebox.show("条码读取错误,请重试")
            goto e
        End If
    Next
    Return
    ''------------------------
    ''      你的代码
    ''------------------------
    e:
    e.Form.Controls("TextBox3").text = ""
    e.Form.Controls("TextBox3").Select
End If

或者直接改成

 

Dim tx As String = e.Form.Controls("TextBox3").text
Dim str As String ="\,|,?,!,@,#,$,%,^,&,*,(,),/,+,~"
If  e.KeyCode = Keys.enter Then
   
   
    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
            e.Cancel = True
            messagebox.show("条码读取错误,请重试")
            e.Form.Controls("TextBox3").text = ""
            e.Form.Controls("TextBox3").Select
            Exit For
        End If
    Next
End If

谢谢，我先试一下