Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
2 aViewParameters
Message
 
To
19/04/2000 14:13:27
Ed Gay
Computer Software Consultants
Bangor, Maine, United States
General information
Forum:
Visual FoxPro
Category:
The Mere Mortals Framework
Miscellaneous
Thread ID:
00361361
Message ID:
00361484
Views:
12
>The add view parameter? Can you pass more that just the two parameters that the Mere Mortals Developer's Guide shows?

Hi Ed,

AddViewParameter will keep adding to the array. It's not in the docs, but the original method code is easy enough to follow. Here's a copy of it so you can see by yourself...

Alex

*---------------------- Location Section ------------------------
* Library: KBizness.vcx
* Class: KBizObj
* Method: AddViewParameter()
*----------------------- Usage Section --------------------------
*) Description:
*) Stores the specified view parameter name and expression
*) in the aViewParameters property. Handles dimensioning
*) of the aViewParameters array.

* Scope: Public
* Parameters:
* 1. tcName - The *name* of the view parm
* 2. tcExpr - The expression to be stored in the view parm
*
*$ Usage: oBizObj.AddViewParameter('vp_View','This.iValue')
*$
* Returns: Logical .T. by default
*--------------------- Maintenance Section ----------------------
* Change Log:
* CREATED 08/25/98 - KJM
* MODIFIED
******************************************************************
LPARAMETERS tcName, tcExpr
LOCAL lnRows

lnRows = ALEN(This.aViewParameters,1)

*-------------------------------------------------
*--- If this is not the first view parameter to be
*--- added, add a new row to the array property
*-------------------------------------------------
IF NOT EMPTY(This.aViewParameters[1,1])
lnRows = lnRows + 1
DIMENSION This.aViewParameters[lnRows, 2]
ENDIF

*----------------------------------------------------
*--- Store the specified values in the array property
*----------------------------------------------------
This.aViewParameters[lnRows, VPARM_NAME] = tcName
This.aViewParameters[lnRows, VPARM_EXPR] = tcExpr
Low-carb diet not working? Try the Low-food diet instead!
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform