主题：请教串口问题

Dim kj As String = e.sender.name
Dim dr As DataRow
Static Buff As String = "busy"
dr = DataTables("人员表").Find("控件名称 = '"& kj &"'")
If dr IsNot Nothing Then
    Dim dh1 As String = dr("电话号码1")
    Dim dh2 As String = dr("电话号码2")
   
    Ports("COM1").Open()
    Ports("COM1").Write("ATD+'"& dh1 &"'" & vbCrLf)
    If instr(buff , "BUSY") = 1 Then

        Buff = ""
        Ports("COM1").Write("ATD+'"& dh2 &"'" & vbCrLf)
    End If
End If

代码改成这个也不管用啊

出现什么问题?

Dim Buff As String = "OK"
Dim s As String
dr = DataTables("人员表").Find("控件名称 = '"& kj &"'")
If dr IsNot Nothing Then
    Dim dh1 As String = dr("电话号码1")
    Dim dh2 As String = dr("电话号码2")
   
    Ports("COM1").Open()
    Ports("COM1").Write("ATD+'"& dh1 &"'" & vbCrLf)
s = Ports("COM1").ReadExisting()
Forms("准东线").Controls("Label3").Text = s

 

    If s="ok" Then
Ports("COM1").Write("ATH0" & vbCrLf)

        Buff = ""
        Ports("COM1").Write("ATD+'"& dh2 &"'" & vbCrLf)
    End If

电话号码1正常能拨通，S也显示等于“ok”，但是还是不能拨通电话号码2，真搞糊涂哦

If s="ok" Then
Ports("COM1").Write("ATH0" & vbCrLf)

        Buff = ""

        这里加入弹出框调试一下看看 messagebox.show("进入到里IF条件")
        Ports("COM1").Write("ATD+'"& dh2 &"'" & vbCrLf)
    End If

1   Dim kj As String = e.sender.name
2   Dim dr As DataRow
3   Dim s As String
4   dr = DataTables("人员表").Find("控件名称 = '"& kj &"'")
5   If dr IsNot Nothing Then
6   Dim dh1 As String = dr("电话号码1")
7   Dim dh2 As String = dr("电话号码2")
   
8    Ports("COM1").Open()
9    Ports("COM1").Write("ATD+'"& dh1 &"'" & vbCrLf)
10    s = Ports("COM1").ReadExisting()
11    Forms("准东线").Controls("Label3").Text = s
12   MessageBox.Show(s)
13    Ports("COM1").Write("ATH0" & vbCrLf)
14    MessageBox.Show(s)
    If s="ok" Then 

MessageBox.Show(s="ok")

        Ports("COM1").Write("ATD+'"& dh2 &"'" & vbCrLf)
    End If
End If

 

只能执行到第14句，前面全部正确，s="ok",从第15句开始不执行

也许  OK 还含有空格 你肉眼看不出来