Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Passing an array to a form?
Message
From
28/10/1998 14:37:21
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Passing an array to a form?
Miscellaneous
Thread ID:
00151844
Message ID:
00151844
Views:
52
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!
Next
Reply
Map
View

Click here to load this message in the networking platform