- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]二维码扫描的问题？！ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103170)
-- 发布时间：2017/7/1 21:18:00
-- [求助]二维码扫描的问题？！
我买了一个二维码扫描器，读的还可以，但有两个问题。
此主题相关图片如下：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 = ""
我现在想要连续自动扫码，而不要确认，怎么办？
还有我扫描完后，怎样把鼠标指针直接放入文本输入框，还再不需要用鼠标点。
-- 发布时间：2017/7/2 16:28:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=102734&skin=0