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

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

 

在:文本框的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

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