Control Collection 1

[myan]

I want to acces a number of text controls on a form in a for next loop

Each control is delimited by a number eg txtAdd1, txtAdd2 etc

I was hoping a loop similar to

for lnCnt = 1 to 3
lcControlName = "txtAdd"+transform(lnCnt)
thisform.controls(lcControlName).value = lnCnt
next

obviously this does not work but what would?

many thanks
Paul

 

[ChrisRChamberlain]

Paul

Untested but :-

for lnCnt = 1 to 3
[tab]lcControlName = "txtAdd"+transform(lnCnt)
[tab]IF thisform.controls(lcControlName).Name = lcControlName
[tab][tab]* code
[tab]ENDIF
next

FAQ184-2483 - the answer to getting answered.​

Chris

 

[Mike Gagnon]

myan

LOCAL lcControlName
FOR I = 1 TO THISFORM.ControlCount
lcControlName = "text"+TRANSFORM(i)
ENDFOR

But you want to replace the value with the control number? I don't understand.
Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[monikai]

hej !
for lnCnt = 1 to 3
lcControlName = "txtAdd"+transform(lnCnt)
thisform.controls(lcControlName).value = lnCnt
next

i'll change to:
for lnCnt = 1 to 3
lcControlName = "txtAdd"+alltrim(str(lnCnt))
thisform.controls(&lcControlName).value = lnCnt
next

or:
for lnCnt = 1 to 3
lcControlName = "txtAdd"+alltrim(str(lnCnt))
zm_n='thisform.controls('+lcControlName+').value = lnCnt'
&zm_n
next
Kind regards from Warsaw !!!!!
Monika (monikai@yahoo.com)

 

[myan]

Chris your method is the one that I was using, i was looking for a method where i didnt have to go through all the controls on the form.

Mike the lnCnt number was just an example of setting the control to a value. I'm actually attempting to loop through a number of address fields and back filling with address info.

Monikai I was hoping your ideas would work but alas no, vfp 7 does not allow you to use an index of type string in the controls collection. Help does not say what type index is!

So currently I'm looping through all the controls on the form until I get a match.

Any other ideas
Paul

 

[DSummZZZ]

Try something like:

for lnCnt = 1 to 3
lcControlName = "text"+transform(lnCnt)
ThisForm.&lcControlName..value = 'Dave' + transform(lnCnt)
next
Dave S.