主题：[求助] 条形码录入问题

各位大哥，现在有个问题请教您，关于条形码扫描录入问题，功能机构如下

表共4列，分别为日期、时间、用户名、变速器流水号。

1、其中日期列默认当天日期，时间列默认当时时间，用户名默认为登录用户。当用扫描枪扫描条形码时，如果不是重复流水号，表明录入正确，否则提示：您输入的流水号已经存在，请重新输入！

2、录入正确后自动新增行，鼠标默认在变速器流水号单元格，等待扫描下一个流水号，

3、我已经做好一部分，帮助文件看了几遍还是做不对，我上传文件给各位大哥帮分析一下。小弟感激不尽！

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

点击浏览该文件:管理项目1.rar

您连列都懒得设置吗？有那么多时间，写这么多文字，也不至于给一个表结构不符合要求空表吧？偷懒可不见得掌握的快，别人也没有时间来做这些！

把表事件的所有代码删除.把文本框绑定去掉.

 

在:文本框的TextChanged事件中设置此代码,看看效果对不对?    流水号设置是6位.

Dim Val As String = e.Form.Controls("TextBox1").Text
If Val.Length = 6 Then
    Dim dr As DataRow
    dr =DataTables("扫描录入").Find("变速器流水号= '" & Val & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("此变速器流水号已经存在!")
        e.Form.Controls("TextBox1").Value = Nothing
        Return
    Else
        Dim r As Row = Tables("扫描录入").AddNew
        r("日期")=Date.Today()
        r("时间")=Date.Now
        r("用户名")=User.Name
        r("变速器流水号")= Val
        e.Form.Controls("TextBox1").Value = Nothing
        End If
End If

日期和时间的取时间和日期,自己在列属性中设置一下.

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

点击浏览该文件:管理项目1.table

非常感谢