Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Label on last page's footer
Message
 
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00614141
Message ID:
00614617
Views:
22
>>>I want a label only to print on the last page's footer of the report. Any idea??? I know I've seen this kind of question here before but can't find it. Thanks in advance for any help.
>>>
>>>
>>>Enmanuel
>>
>>Here's another way to do this:
>>
>>Create a Report Variable called lEnd, set its initial value to .f. and set its expression to .f.
>>
>>Create a Summary band and in the On Exit expression, enter EXECSCRIPT('lEnd = .t.')
>>
>>Set the Print When expression of the label in your Page Footer to: lEnd
>
>Hi Cathy,
>
>Is there any reason why you prefer using EXECSCRIPT() over _VFP.Setvar() siggested by Larry Miller ?

Here's the result of the tests I ran
Command                Time        # of itterations

Execscript            1.693        100
_VFP.Setvar           0.000        100

Execscript           16.984       1000
_VFP.Setvar           0.010       1000
As you can see VFP.Setvar is much faster. It's understandable, because Execscript() has to write code to the file, compile it and run from the file. _VFP.Setvar on other hand is built-in method of _VFP object. In addition _VFP.Setvar can work with local variables.
Here's the test code
lnMaxItter = 1000
lnCount = 0
lnStart = SECONDS()
FOR i=1 TO lnMaxItter
	EXECSCRIPT("lnCount = lnCount + 1")
ENDFOR 
? "Execscript", SECONDS() - lnStart, lnCount 

lnCount = 0
lnStart = SECONDS()
FOR i=1 TO lnMaxItter
	_VFP.Setvar("lnCount", lnCount + 1)
ENDFOR 
? "_VFP.Setvar", SECONDS() - lnStart, lnCount 
--sb--
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform