创建对象，时不时的不能使用?该如何解决

创建对象，时不时的不能使用?
本帖最后由 Emder_Maus 于 2012-11-15 01:34:13 编辑 声明了一个过程
   

 Private Sub Connect()
        Dim rdserver = CreateObject("MTPServer")
        Dim rdinstrument = rdserver.CreateInstrumentObject
    
            rdinstrument.send= "S"
      

        '资源回收
       rdinstrument = Nothing
        rdserver = Nothing

    End Sub

很奇怪，调用一次，两次都可以，到第三次的时候就会说
object variable or with block variable not set,错误的是  rdinstrument.send= "S"
真是活见鬼了。这个要到底怎么修改啊? 求大虾们帮忙啊 ！
[解决办法]
http://www.cnblogs.com/forward/archive/2009/05/20/1468210.html
[解决办法]

Dim rdserver = nothing
Dim rdinstrument = nothing

rdserver = CreateObject("MTPServer")
 rdinstrument = rdserver.CreateInstrumentObject                 rdinstrument.send= "S"                
'资源回收       
rdinstrument = Nothing     
 rdserver = Nothing

最好lock 同步 这样安全点

查看更多 下一篇