主题：求助：身高测量仪串口监视器读取代码

Dim s As String = e.Port.ReadExisting

Dim Values() As String

If s.Indexof(":") >0 Then

    Values = s.split(":")

    Dim r As Row =Tables("驾证业务").current

     r("身高") = Values(2)

    forms("身高测量").controls("sh").text = Values(2) & "cm"

Else

    MessageBox.show("数据格式错误")

End if