- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 打开窗口报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=42498)
-- 发布时间：2013/11/13 15:53:00
-- 打开窗口报错
下面这段代码写在窗口-全局事件-enter里面，打开窗口时报错
此主题相关图片如下：exy~ydkd3p4dihbn6%(fyd.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
请问他爸，这是怎么回事呢？
-- 发布时间：2013/11/13 15:56:00
--
加个判断
if dr isnot nothing then
-- 发布时间：2013/11/13 15:59:00
--
ok,thinks