主题：请教扫描枪

Dim str As String = "<RS>06<GS>Z<GS>1JF10117010903089<GS>Q12<GS>PTIG5820800A<GS>V<GS>1T20170109<GS>K<GS>N<GS>21L700<RS><EOT>"
str = str.replace("<GS>", "@")
Dim ary() As String = str.split("@")
For i As Integer = 0 To ary.length-1
    output.show(ary(i))
Next

看懂代码，修改，把代码写到你需要的位置

 

Dim str As String = "<RS>06<GS>Z<GS>1JF10117010903089<GS>Q12<GS>PTIG5820800A<GS>V<GS>1T20170109<GS>K<GS>N<GS>21L700<RS><EOT>"
str = str.replace("<GS>", "@").replace("<RS>", "@")
Dim ary() As String = str.split("@")
'For i As Integer = 0 To ary.length-1
    'msgbox(ary(i))
'Next
msgbox(ary(1))
msgbox(ary(2))

DataColChanged事件

 

If e.DataCol.Name = "ID" Then
    Dim str As String = e.DataRow("ID")
    str = str.replace("<GS>", "@").replace("<RS>", "@")
    Dim ary() As String = str.split("@")
    If ary.length > 3 Then
        e.DataRow("箱号") = ary(1)
        e.DataRow("Z") = ary(2)
    End If
End If

If e.DataCol.Name = "ID" Then
    Dim str As String = e.DataRow("ID")
    str = str.replace("<GS>", "@").replace("<RS>", "@")
    Dim ary() As String = str.split("@")
    If ary.length > 3 Then
        e.DataRow("箱号") = ary(1)
        e.DataRow("Z") = ary(2)

        e.DataRow("编号") = ary(3).SubString(2)
    End If
End If

直接写表名

 

Tables("表A.表B").AddNew

DataTables("进库清单.进库明细").DeleteFor("")

 

改成

 

Dim t As Table = Tables("进库清单.进库明细")
For i As Integer = t.rows.count - 1 To 0 Step -1
    t.rows(i).delete
Next

没理解你的逻辑，扫描ID后，要去哪个表获取什么数据？要把数据填入到那里去。请举例说明。

 

If e.KeyCode = keys.Enter
    Dim Val As String = e.Form.Controls("TextBox1").Text
    If Val > "" Then
        Dim dr As DataRow
        dr =DataTables("进库明细").Find("ID= '" & Val & "'")
        If dr IsNot Nothing Then
            MessageBox.Show("此ID已经存在!")
            e.Form.Controls("TextBox1").Value = Nothing
            Return
        Else
            Dim r As Row = Tables("进库明细").AddNew
            r("ID")= Val
            e.Form.Controls("TextBox1").Value = Nothing
        End If
    End If
    e.Cancel = True
End If

 

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

点击浏览该文件:仓库 (1).foxdb

参考代码

 

Dim str As String = "20170109"
If str.length = 8 Then
    str = str.Insert(4, "-").insert(7, "-")
    Dim d As Date
    If Date.TryParse(str, d) Then
        msgbox(d)
    End If
End If

23楼的代码，之后，要赋值的是变量d的值。