Option Explicit
'把excel的数据复制到文档文件，并改名为 "localdata.txt"
Private Type product
infor As String * 13  '13位条码
tab   As String * 7   '7个空格
End Type

Sub localprouct()
Dim num As Integer, myproduct As product
Open App.Path + "localdata.txt" For Random As #1 Len = Len(myproduct)
For num = 1 To 10000
Get #1, num, myproduct
If myproduct.infor = Text1.Text Then Exit Sub: Label1.Caption = "合法条码"
Next num
Label1.Caption = "非法条码"
Close #1
End Sub

我还是继续卖我的猪肉吧

哈哈，我跟你开玩笑，你别当真啊。

把上面的exit sub 换成 exit for，一时没留意

条码枪的接口 你知道吗？

Option Explicit
'把excel的数据复制到文档文件，并改名为 "localdata.txt",等于建了个简单数据库
Private Type product
infor As String * 13  '13条码
tab  As String * 7   '7个空格
End Type

Sub contrast()
Dim num As Integer, myproduct As product
Open App.Path + "localdata.txt" For Random As #1 Len = Len(myproduct)
For num = 1 To 10000
Get #1, num, myproduct
If myproduct.infor = Text1.Text Then Exit For: Label1.Caption = "合法条码"
Else
Label1.Caption="非法条码"
End If
Next num
Close #1
End Sub

[ 本帖最后由 xlhcy2014 于 2014-3-6 23:24 编辑 ]

不用考虑枪的接口问题，我做过测试，只要能用键盘输入的地方，条码枪就可以把数据准确无误的扫进去。

那你在加载程序的时候 ，最好获取焦点  代码都给你了

Option Explicit
'把excel的数据复制到文档文件，并改名为 "localdata.txt",等于建了个简单数据库
Private Type product
infor As String * 13  '13条码
tab  As String * 7   '7个空格
End Type

Sub contrast()
Dim num As Integer, myproduct As product
Open App.Path + "localdata.txt" For Random As #1 Len = Len(myproduct)
For num = 1 To 10000
Get #1, num, myproduct
If myproduct.infor = Text1.Text Then Exit For: Label1.Caption = "合法条码"
Else
Label1.Caption="非法条码"
End If
Next num
Close #1

Private Sub Form_Load()
Text1.SetFocus
End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then contrast
End Sub

 

[ 本帖最后由 xlhcy2014 于 2014-3-6 23:42 编辑 ]

发到你邮箱了

Dim Conn As New ADODB.Connection，RsMain As New ADODB.Recordset,MainSQL As String

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 then
    MainSQL = "Select * from [SN$] in 'C:\产品SN.xls' 'Excel 8.0;' where [SN] = '" & Text1.text & "'"      ----> [SN$], SN为Sheet名称
    RsMain.open MainSQL ,Conn,1,1
    If Not RsMain.EOF then
        Text2.text = RsMain.fields("SN")
        Label1.Caption = "合法条码"
    ELSE
        Text2.text = "没有找到"
        Label1.Caption = "非法条码"
    Endif
    RsMain.close
    Text1.Setfocus
Endif

[ 本帖最后由 owenlu1981 于 2014-3-7 09:34 编辑 ]

2个文本框的数据来源和逻辑提供下

现在不需要两个文本框了，（最开始我们的条码都是固定的一组数字，但是现在为不规则的数据了）所以只需要一个文本框来输入数据，回车触发回车事件，调用数据库（附件为数据库的格式 ），如果数据存在  显示合法条码   数据不存在显示非法条码，