我买了一个二维码扫描器,读的还可以,但有两个问题。
此主题相关图片如下:qq截图20170701210851.jpg
如上图:
如果这想连续扫描是用Textbox哪一个?
我现在是用确认按键,Enten,代码如下:
Dim S As String = Forms("试卷收取").controls("二维码数据").Value
Dim xh As String = S.SubString(0,13)
Dim sjh As String = S.SubString(13,4)
Dim dr As DataRow = DataTables("考试表").find("学号 = '" & xh & "' and 试卷号 = '" & sjh & "'")
If dr IsNot Nothing Then
dr("是否完成") = "完成"
End If
Forms("试卷收取").controls("二维码数据").Value = ""
我现在想要连续自动扫码,而不要确认,怎么办?
还有我扫描完后,怎样把鼠标指针直接放入文本输入框,还再不需要用鼠标点。