在另一个标准模块的函数里写到：
Public Function getRecord(num As Integer) As ClsRecord
getRecord = New ClsRecord
End Function
执行时提示错误：
Run-time error'91':
Object variable or With block variable not set
这是怎么会使呀？？？？？？
5 个解决方案
#1
dim getRecord as clsrecord
set getrecord=new clsrecord
试一下
set getrecord=new clsrecord
试一下
#2
不行
dim getRecord as clsrecord有错误
错误：
duplicate declaration in current scope
我觉得这样也不行，因为getRecord是函数名呀！
dim getRecord as clsrecord有错误
错误：
duplicate declaration in current scope
我觉得这样也不行，因为getRecord是函数名呀！
#3
我新建了一个类模块，名字就是你那个，里面什么也没有写，然后添加了一个标准模块，并增加了你的代码，运行没有问题。。。
#4
楼上的弟兄，你再建一个窗体啥的，然后调用标准模块的那个方法，看行不？
#5
我知道咋回事了，大家见笑了！
我初学，比较弱。
谢谢弟兄们了！
我初学，比较弱。
谢谢弟兄们了！
#1
dim getRecord as clsrecord
set getrecord=new clsrecord
试一下
set getrecord=new clsrecord
试一下
#2
不行
dim getRecord as clsrecord有错误
错误：
duplicate declaration in current scope
我觉得这样也不行，因为getRecord是函数名呀！
dim getRecord as clsrecord有错误
错误：
duplicate declaration in current scope
我觉得这样也不行，因为getRecord是函数名呀！
#3
我新建了一个类模块，名字就是你那个，里面什么也没有写，然后添加了一个标准模块，并增加了你的代码，运行没有问题。。。
#4
楼上的弟兄，你再建一个窗体啥的，然后调用标准模块的那个方法，看行不？
#5
我知道咋回事了，大家见笑了！
我初学，比较弱。
谢谢弟兄们了！
我初学，比较弱。
谢谢弟兄们了！