下面这段代码写在窗口-全局事件-enter里面,打开窗口时报错
此主题相关图片如下:exy~ydkd3p4dihbn6%(fyd.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2013-11/2013111315511046352.jpg)
代码如下:
Dim kj As String = e.sender.name
Dim dr As DataRow
dr = DataTables("人员表").Find("控件名称 = '"& kj &"'")
Dim dh As String = dr("电话号码")
Ports.Add("COM1")
Ports("COM1").Open()
With Ports("COM1")
.Write("ATD+'"& dh &"'" & vbCrLf)
End With
请问他爸,这是怎么回事呢?