Bob
I don't believe you can show the variable on the form since you are
passing control to the program running the while loop.
Have you tried using the PAUSE 3 and PAUSE 4 commands in your while loop
SET VAR VLoop INTEGER
SET VAR VTotal INTEGER = 10000
SET VAR VMsg = ('Working on 00000 out of 00000')
PAUSE 3 USI .VMsg CAPTION 'Please be patient' AT 10
WHILE VLoop <= VTotal THEN
SET VAR VMsg = ('Working on' & (CTXT(.VLoop)) & 'out of' &
(CTXT(.VTotal)))
PAUSE 4 USI .VMsg
....Do whatever you got to do here
SET VAR VLoop = (.VLoop + 1)
ENDWHILE
Buddy
-----Original Message-----
From: Bob Thompson [mailto:[EMAIL PROTECTED]]
Sent: Thursday, June 13, 2002 1:00 PM
To: Rbase-L (E-mail)
Subject: Another novice form question
I want to display a "count down" counter
on a form while the app is processing a
somewhat large data set. I have a push button
on the form that executes the program and
I want the form to display something like :
"Processing record# 20 of 10000"
This app may take 1-2 minutes to completely
execute and this is feed back to the user.
I have tried the SCREEN RESTORE, WRITE
and RECALC commands, but cannot get the
form to show updated variables until the procedure
has finished. (It is then a moot point of course!)
I do not want to use the FEEDBACK option as
I would like more control over what and
how the counter is displayed.
You all have been very helpful and I appreciate
the assistance. Again, simply how do you
get a variable to redisplay at will on a form
while you are performing a WHILE LOOP or
DECLARE CURSOR ?
Thanks.
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
================================================
TO SEE MESSAGE POSTING GUIDELINES:
Send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: INTRO rbase-l
================================================
TO UNSUBSCRIBE: send a plain text email to [EMAIL PROTECTED]
In the message body, put just two words: UNSUBSCRIBE rbase-l
================================================
TO SEARCH ARCHIVES:
http://www.mail-archive.com/rbase-l%40sonetmail.com/
