Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Passing an array to a form?
Message
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00151844
Message ID:
00152006
Views:
27
>Help!?!?!?!?!
>
>I'm getting an error message trying to send an array to a forms' init method...
>
>The array I'm trying to pass is being recieved as numeric!
>
>What gives?
>
>
>-----------------------
>Here's the code
>
>
>
<strong>
>
>***********************
>* in the calling .prg *
>***********************
>
>* create array of selected records
>nRetRec = RECNO()



>SELECT RECNO() FROM ( goApp.cCUserID + 'UPDAAPVMO1' ) WHERE MARKED INTO ARRAY aRecList
>IF _TALLY = 0
>    DIMENSION aRecList(1,1)
>    aRecList(1,1) = nRetRec 
>ENDIF
>GOTO nRetRec
>

>* create EDIT form
>oEUPDAAPVMO1 = CREATEOBJECT( "UPDAAPVMO1_Edit_Class", aRecList )
>
>
>*****************************************************
>* in the class definition for UPDAAPVMO1_Edit_Class *
>*****************************************************
>
>*------------------------------------------------------------
>PROCEDURE INIT
>    LPARAMETERS aRecList
>
>    * Parent class sets datasession environment settings ( dele, esca, talk, excl, etc. )
>    DODEFAULT()
>    THIS.cOpAlias = goApp.cOpAlias
>
>    * set keys
>    IF ALEN( aRecList, 1 ) > 1      ------>
>                                    ------> "aRecList is not an Array"
>                                    ------>
></strong>
>
>Thanks for any help!

Larry,
try prefixing the array with @
oEUPDAAPVMO1 = CREATEOBJECT( "UPDAAPVMO1_Edit_Class",@aRecList )
Regards
Pete Kane
Regards,
Peter J. Kane



Pete
Previous
Reply
Map
View

Click here to load this message in the networking platform