>Hi all.
>I have a form with 47 fields
>I have a loop that performs some calculations 47 times and need to display the results in every one of the fields sequentially.
>Is there some way to substitute the "THISFORM.ObjectName" with a variable that increases +1 in each pass?
>My text fields are named Text1 through Text47.
>So I tried something like this (abreviated here):
>
>xCount=1
>DO WHILE xCount<48
>xText="Text"+(alltrim(str(xcount)))
>THISFORM.xText.value=xCount
>xCount=xCount+1
>ENDDO
>
>I got (obviously) an error message when reaching the THISFORM line about not finding the xText element.
>
>Is there a possible way around this or will I have to repeat the code for each one of the fields?
>TIA for your time
>
>Ulises

You can use macro substitution.

for FieldNum = 1 to 48
  FieldName = "Text" + trans(FieldNum)
  ThisForm.&FieldName..Value = FieldNum
next

* or:

for FieldNum = 1 to 48
  FieldName = "Text" + trans(FieldNum)
  Command = "ThisForm." + FieldName + ".Value = " + FieldNum
  &Command
next

Note also how the FOR saves you some coding in the loop. trans() requires VFP 6 or later (equivalent to alltrim(str()), if the argument is numeric)).

HTH, Hilmar.