Also another way of tackling it in newer versions of RBase
that you can use the PREVROW command you can use this code:
*(
--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=-
PROGRAM'S NAME: F7or8.eep
AUTHOR: Jim Limburg -- Tuftco Corporation
PURPOSE: To navigate from row to row in a scrolling region
with an easy syntax call without having to have a ton
of EEP's and .pla files.
IS RUN BY: Command Button's RUN command
This is called by using an EEP call Syntax like:
F7or8.eep USING 15 F8
The above call is used in the push buttons RUN command
by calling the EEP by name F7or8.eep and then uses the
USING clause to pass two variables in this case %1
being 15 and %2 being F8 thus depending on the value
of the second variable determines whether it will
navigate forward[F8] or backward[F7] in the rows.
The first variable will tell it how many times to
execute the loop thus how many rows to move.
The variable vg_maxtomove is to be used as a constant
to never let the loop to execute more than the value
it's set to.
NOTES ABOUT USAGE: RBase Version must support the NEXTROW and
PREVROW commands. These were introduced in
version 6.x I think. So RB version should be
6.x or later
With Version 6.5 or greater use the
SET INTENSITY ON command and this will produce
a nice looking effect.
MODIFICATION HISTORY:
Created: Novemeber 2000
--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=--=+=-
)
SET VAR vg_accumlowint INTEGER = 1
SET VAR vg_maxtomove INTEGER = 20
SET VAR vg_accumhighint = .%1
SET VAR vg_f7or8 = .%2
IF vg_f7or8 = 'F8' THEN
SET VAR vg_direction = 'NEXTROW'
ELSE
SET VAR vg_direction = 'PREVROW'
ENDIF
WHILE vg_accumlowint < .vg_accumhighint THEN
&vg_direction
SET VAR vg_accumlowint = (.vg_accumlowint + 1)
IF vg_accumlowint > .vg_maxtomove THEN
BREAK
ENDIF
ENDWHILE
CLEAR VAR vg_accumlowint, vg_accumlowint, vg_maxtomove, vg_f7or8
RETURN
