主题：请教串口问题

下面这段代码的功能是电话号码1占线，自动拨打电话2，请大家帮忙看一下错在那里了

Dim kj As String = e.sender.name
Dim dr As DataRow
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(1,buffer , "BUSY", vbTextCompare) Then
Buffer = ""
Ports("COM1").Write("ATD+'"& dh2 &"'" & vbCrLf)
End If
End If

出现什么错误?

此主题相关图片如下：`25blpycb3{z7(qsnj`ggp.jpg

.
此主题相关图片如下：上传图片请参考这里.gif

请帮我改改代码

没发现你有声明 buffer  这个变量啊? 而且这是一个类型名称吧,也不能用它来命名的.

dim buffer as string

Dim kj As String = e.sender.name
Dim dr As DataRow
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(1,buffer , "BUSY", vbTextCompare) Then
Buffer = ""
Ports("COM1").Write("ATD+'"& dh2 &"'" & vbCrLf)
End If
End If

这样改了之后，虽然不报错，但他只能拨通第一个电话，无法跳转来拨通第二个电话

InStr(string1,string2) 
返回字符串string2在字符串string1中第一次出现的位置