- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 求助，扫描条码不能自动输入的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99983)
-- 发布时间：2017/5/2 11:33:00
-- 求助，扫描条码不能自动输入的问题
窗口中扫描条码不能自动输入到表中单元格的问题
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:新管理项目2.foxdb |
-- 发布时间：2017/5/2 11:35:00
-- 请老师帮忙看一下
请老师帮忙看一下代码
-- 发布时间：2017/5/2 11:41:00
--
代码在哪？
-- 发布时间：2017/5/2 11:43:00
-- 请老师帮我看一下
请老师帮我看一下
-- 发布时间：2017/5/2 11:49:00
--
哪个窗口哪个控件，要做什么功能？
-- 发布时间：2017/5/2 11:52:00
--
想通过窗口借阅管理，首先扫描借书证条码，自动录入借书人信息
-- 发布时间：2017/5/2 11:53:00
--
然后，扫描图书条码自动录入图书信息
-- 发布时间：2017/5/2 11:53:00
--
改一下代码
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
-- 发布时间：2017/5/2 11:55:00
--
或者直接改成
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
-- 发布时间：2017/5/2 12:00:00
--
谢谢，我先试一下