Variable substitution within a loop

[stanmurphy]

Hello All,

I am using the code below to clear a number of text boxes on my form. I tried the eval because I heard that a &variable will only be evaluated once in a loop. The eval seems to be working the same way. Does anyone know of another way to accomplish this task, that is, performing variable substitution within a loop?


FOR boxcount = 2 TO 7 && clear the names boxes on Appointment Form
eval("thisform.text"+(ALLTRIM(STR(boxcount)))+".value = ' '&quot
ENDFOR

 

[EzLogic]

try this..

for boxcount = 2 to 7
thisform.Text&boxcount..value = ''
endfor

notice the .. Please let me know if this helped you

Tekno
Wireless Toyz
Ypsilanti, Michigan

 

[EzLogic]

correction for the above post

for boxcount = 2 to 7
nCount = ltrim(str(boxcount))
thisform.text&nCount..value = ''
endfor
Please let me know if this helped you

Tekno
Wireless Toyz
Ypsilanti, Michigan

 

[stanmurphy]

Thank you so much. It works wonderfully!!! I hadn't realized that I could put an & in the middle of a statement and end the & with a period.

 

[stanmurphy]

Oops. I was wrong. It isn't working. this is what the help file for & says and this is my problem.

Macro substitution statements that appear in DO WHILE, FOR, and SCAN are evaluated only at the start of the loop and are not reevaluated on subsequent iterations. Any changes to the variable or array element that occur within the loop are not recognized.


Any suggestions????

 

[wgcs]

What this help means is:

lcFor = "I = 1 to 10"
FOR &lcFor
lcFor = "I = 1 to 20"
?I && Executes 10 times
lcTst = ["]+tran(I)+["]
?&lcTst && This WILL print 1 thru 10
ENDFOR


lcWhile = ".T."
DO WHILE &lcWhile
lcWhile = ".F."
* Infinite loop.. never ends
ENDDO

 

[ramani]

HI
If your intention is to clear all the textbox controls..

Method 1:
*********
ThisForm.SetAll("Value","","TextBox&quot

Method 2:
*********
FOR EACH m.oThis IN ThisForm.Controls
IF m.oThis.BaseClass == 'TextBox'
m.oThis.Value = ""
ENDIF
ENDFOR

Method3
*******
If these text boxes are bound to table..
APPEND BLANK
ThisForm.Refresh will clear the values. It depends on your way of coding

Method4:
********
If you are using memory variables as control source..
Then..
SCATTER MEMVAR BLANK
ThisForm.Refresh
This can clear all your text box values..







Hope this helps you ramani
(Subramanian.G),FoxAcc, ramani_g@yahoo.com

 

[stanmurphy]

Lots of new ideas there. Thank you all