Dim cnt As Integer = Ports("COM6").BytesToRead
If cnt > 0 Then '缓冲区是否有数据
Dim Val(cnt - 1) As Byte
Ports("COM6").Read(val, 0, cnt)
Dim str As String = BitConverter.ToString(val).Replace("-", " ")
Dim r As Row = Tables("表A").AddNew()
r("第一列") = str
End If
Foxtabel收到的数据和串中收到的数据不一样。其他00 00 的数据没有了,和00附件的数据也发生了变化。
Fox表的数据是这样的。