此主题相关图片如下：??.png

如图所示，用条码扫描仪输入数据时，一般的文本框可以显示所有 条码的文本内容， 但是在带有问号的 文本宽输入所扫描的内容是，只能显示三个字母，而且不是连续的，应该是代码的问题，请问该怎么改才好，代码如下：

textchange代码：

Dim dr As DataRow
Dim str As String = Forms("条码商品输入").Controls("TextBox1").Value
dr= DataTables("quhuojilu").Find("取货商品名 =‘”&str&“’ ")
If dr IsNot Nothing Then
    Dim r As Row = Tables("quhuolu").AddNew
    r("取货商品名") = Str
    str = Nothing
Else
    MessageBox.Show("产品库无此产品!","提示")
    Return
    str = Nothing
End If