Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Problems with collections
Message
De
21/10/2008 23:09:03
 
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Versions des environnements
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows 2008 Server
Database:
MS SQL Server
Divers
Thread ID:
01356180
Message ID:
01356198
Vues:
22
This.Fields is an object on a form. The property sheet is not very exciting. Class and BaseClass just say "Collection". That's all I know.

>Is This.Fields VFP collection? How is it created?
>
>>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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform