Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Passing a 2-dimensional array as a parameter
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00535115
Message ID:
00535137
Vues:
12
Well that was easy! Thanks!

>You have to pass an array by reference, otherwise you are passing only the first element of the array
loEventObj = CreateObject('CompReplaceAllBomEvent', tnOrderOpt, ;
>vp_cOrigSkuNum, vp_cNewSkuNum, <b>@laBomsAffected</b>)
>
>>Hello,
>>
>>I know similar questions have been asked numerous times here, but none of the threads I have read have been able to help me, as they require the array is being passed to a form.
>>
>>What I am trying to do is pass a 2-dimensional array from a form-based class to an event-based class. I am using VFP 6 and the latest Mere Mortals version:
>>
>>SELECT(ThisForm.cUtility.grdBoms.cGridList.RecordSource)
>>
>>lnRecNum = RECCOUNT()
>>
>>DIMENSION laBomsAffected(lnRecNum,5)
>>
>>*loops through the recordsource of the grid by row
>>SCAN
>>
>> COPY TO ARRAY laBomsAffected
>>
>>ENDSCAN
>>
>>* Create event object.
>>loEventObj = CreateObject('CompReplaceAllBomEvent', tnOrderOpt, ;
>>vp_cOrigSkuNum, vp_cNewSkuNum, laBomsAffected)
>>
>>Any help would be very much appreciated as this has become one of those torturous bits of code that cause premature hair loss for me.
>>
>>TIA!
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform