您好老师。
此主题相关图片如下：qq截图20190318103856.png
原先的代码如下。
Select Case e.Port.PortName
Case "COM6"
Dim txt As String = Ports("COM6").ReadExisting()
If txt.length > 5 Then
Forms("老化终检检验窗口").Controls("TextBox2").Text = txt
ElseIf txt.length < 5 Then
Forms("老化终检检验窗口").Controls("TextBox3").Text = txt
End If
Case "COM7"
Dim txt As String = Ports("COM7").ReadExisting()
Forms("出厂检验报告窗口").Controls("TextBox1").Text = txt
End Select
原先是只有两个录入文本框（产品编号TextBox2（15位数字，字符型），检验结果TextBox3（1位英文字母，字符型） ）。现又增加了新的文本录入框产品编号TextBox1（11为数字，字符型）后编码如何修改？
[此贴子已经被作者于2019/3/18 11:07:53编辑过]
加好友 
发短信
Post By：2019/3/18 11:07:00 [显示全部帖子]
