I'm having problems working with Collections (not surprisingly, since this is my very first time creating a collection).
I have a form with a collection named .Fields .... This.Fields (I've inherited this from somebody else). Each item in This.Fields is an object with the same simple list of properties.
I want to copy the entire collection into an object I've created called loProperties. Now, I don't want to copy an object reference, since my goal is to later compare the values in This.Fields with loProperties.Fields. to see which have changed.
My code to do this follows. When done, however, loProperties.Fields(1) does not have the same list of properties as This.Fields(1) --- it actually looks like a collection itself.
Can anybody identify what I'm doing wrong here? (Note: loFields looks like the collection I would expect ... but loProperties.Fields doesn't)
loFields = Createobject("Collection")
For lnJ = 1 To This.Fields.Count
m.loData = Createobject("Empty")
Amembers(laFieldMembers, This.Fields(lnJ))
For Each lcFieldMem In laFieldMembers)
AddProperty(m.loData, lcFieldMem, Evaluate("This.Fields(lnJ)." + lcFieldMem))
Endfor
loFields.Add(m.loData)
Next lnJ
AddProperty (loProperties, 'Fields', loFields)
Jim Nelson
Newbury Park, CA