在一个SUB中定义了一个复杂的类,涉及到对卡的操作,如果SUB中出现ERROR,则跳转到处理ERROR的语句处,在此处 如果有生成的类实例,则需要释放掉,现在的问题是  在错误 处理处  如何判断  有没有生成的类实例。谢谢大家。

解决方案 »

  1.   

    在一个SUB中定义了一个复杂的类?
      

  2.   

    类应该在类模块中,不管多复杂,如果定义实例成功,总是可以判断是否为Nothing。
    你在SUB中定义类,是什么意思?是在类模块中吗?
      

  3.   

    不管有否生成
    都set xxx=nothing 
      

  4.   

    if not xx is nothing then set xx=nothing
      

  5.   

    如果是
    sub xxx()
    dim x as class1
    ...
    on error goto doerror
    set x=new class1
    ...
    exit sub
    doerror:
    ...
    end sub
    要是这样的话,不需要释放x对象,x是局部变量,在子程序退出的时候系统会释放x