小编Eri*_*ric的帖子

我不明白为什么Debug.Print n & " - " & objTrans2.DESC这段代码底部的行输出"描述2"两次.我希望它输出"描述1"和"描述2".

我试图通过sampleCollection.AddFor循环中的from 添加自定义对象(Transaction)有什么问题吗？如果我将字符串添加到集合而不是对象,则代码可以很好地工作.

Public Function PopCollection()
    Dim sampleCollection As New Collection
    Dim objTrans As New Transaction
    Dim objTrans2 As New Transaction


    '********** SETUP ARRAY FOR LOOP *************
    Dim arrA(0 To 1) As String
    arrA(0) = "Description 1"
    arrA(1) = "Description 2"


    '********** POPULATE COLLECTION *************
    For n = 0 To 1
        objTrans.DESC = arrA(n)
        Call sampleCollection.Add(objTrans)
    Next n


    '********** ITERATE THROUGH COLLECTION *************
    For n = 1 To sampleCollection.Count …