Welcome To The Home Of The Visual FoxPro Experts  
home. signup. forum. archives. search. google. articles. downloads. faq. members. weblogs. file info. rss.
 From: Stefan Wuebbe
  Where is Stefan Wuebbe?
 Hamburg
 Germany
 Stefan Wuebbe
 To: Cecil Champenois
  Where is Cecil Champenois?
 Little Elm
 Texas - United States
 Cecil Champenois
 Tags
Subject: RE: Loop through and rename labels
Thread ID: 416077 Message ID: 416086 # Views: 53 # Ratings: 5
Version: Visual FoxPro 9 SP2 Category: Forms
Date: Sunday, December 21, 2014 7:09:36 AM         
   


> >
> > One way of doing it...
> >
For x = 1 to 10
> >    y = trans(x)
> >    thisform.lblTruckNumber&y..caption = 'This is label' + y
> > endfor 
> > 

> >
> >
> >
> > Ez Logic
>
> Thank you, Ali. Okay, so the Transform() function converts the number to a character data type. Cool. I've used the macro expansion before, but didn't remember the two dots.
>
> So, Ali, how would you handle what follows, which isn't working? It appears that the "&y" has to be the last item to follow the variable name. But what do you do when you want the Truck Number to be a part of the control name, as in the following attempt:
>
> * This may work.
> ThisForm.lblTruck&y.Driver1Shift1.Caption
> 

> Cecil Champenois, Jr.



You can probably use the object type itself, e.g.

LOCAL loControl as Label, lnControl
FOR EACH loControl IN This.Controls
	IF LOWER(LEFT(m.loControl.Name, 8)) == "lbltruck"
		lnControl = INT(VAL(SUBSTR(m.loControl.Name, 9)))
		loControl.Caption = TEXTMERGE("This is Label <<m.lnControl>>")
	ENDIF
NEXT




hth
-Stefan

ENTIRE THREAD

Loop through and rename labels Posted by Cecil Champenois @ 12/21/2014 12:23:21 AM
RE: Loop through and rename labels Posted by Ali Koumaiha @ 12/21/2014 4:02:23 AM
RE: Loop through and rename labels Posted by Cecil Champenois @ 12/21/2014 4:31:08 AM
RE: Loop through and rename labels Posted by Stefan Wuebbe @ 12/21/2014 7:09:36 AM
RE: Loop through and rename labels Posted by Ali Koumaiha @ 12/21/2014 12:34:19 PM
RE: Loop through and rename labels Posted by Cecil Champenois @ 12/21/2014 4:18:53 PM
RE: Loop through and rename labels Posted by Mike Yearwood @ 12/22/2014 3:35:51 PM
RE: Loop through and rename labels Posted by Cecil Champenois @ 12/22/2014 4:58:32 PM
RE: Loop through and rename labels Posted by Victor Espina @ 12/23/2014 1:05:58 AM
RE: Loop through and rename labels Posted by Bernard Bout @ 12/24/2014 4:19:23 AM