3

我有一个包含自身集合的类。（顶级类包含集合中详细实例的摘要版本。）

目前该集合是一个公共变量，因为我还没有弄清楚使用私有变量的所有细节。我可以稍后解决。

如何将项目添加到集合中？我因缺少对象变量而收到错误 91。

感谢您之前的所有帮助。我一直在重组我的代码以更广泛地使用类，而且事情的清理方式真的很棒。

cPE类

Public PE_Details As Collection ' collection of cPE
Public PE_ID as integer
Public PE_ID_Index as integer

' Add to the detailed list of PE's
Public Function AddPEDetail(ByRef cPE_Detail As cPE)

    PE_Details.Add cPE_Detail    ' ERROR: Object variable or With 
                                 ' block variable not set

End Function

调用它的模块代码如下：

Dim clsPE As cPE                ' Summary version of PE
Dim clsPE_Detail As cPE         ' A detailed PE
Dim i as Integer

Set clsPE = New cPE     ' This is the PE which will also contain a list of detailed PEs

' Add three instances of detailed cPE to the summary cPE object
for i = 1 to 3
   Set clsPE_Detail = New cPE

   clsPE_Detail.PE_ID = clsPE.PE_ID
   clsPE_Detail.PE_ID_Index = clsPE.PE_ID_Index
   'etc.

   clsPE.AddPEDetail clsPE_Detail  ' see above
next i
4

1 回答 1

9

在您的 cPE 类中添加方法 Class_Initialize 并初始化您的变量。正如你现在拥有的那样，你永远不会设置 PE_Details 所以它是空/无

Private Sub Class_Initialize()
 set PE_Details = New Collection 
End Sub
于 2013-08-23T21:13:19.000 回答