Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Problems with order
Message
 
 
To
12/06/2006 12:12:05
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Environment versions
Visual FoxPro:
VFP 9
OS:
Windows XP
Network:
Windows 2000 Server
Database:
MS SQL Server
Miscellaneous
Thread ID:
01128464
Message ID:
01128471
Views:
24
The objects are accessed in the order they were created, not in the TabIndex. If you need them to be validated in this order, you can create an array of your objects in the Init (also exclude these without your custom property), then sort array by TabIndex and access it this way.

Hopefully you get this idea, let me know if you need more guidance.

>hi
>
>I have the following problem.
>I did a procedure for valid the fields that must fill with obligatory form
>everything works well but the order in which them valid not, though every control takes his tabindex as a debit to be them valid without this order.
>
>this is code, sorry bad tab.
>for x=1 to thisform.controlcount
>	nom=thisform.controls(x).name
>	oj='thisform.'+nom
>	if pemstatus(&oj,'enblanco',5)
>		oj2='!'+oj+'.enblanco'
>		oj3=oj+'.value'
>		come=oj+'.tag'
>		cam=&come
>		cvalor=&oj3
>	if type('cvalor')="C" or type('cvalor')="U" or type('cvalor')="D"
>		oj9=iif(!empty(cam),cam+' En Blanco No Permitido, Verifique, Por      Favor','Campo En Blanco No Permitido, Verifique, Por Favor')
>	oj8='empty(&oj3)'
>	endif
>	if type('cvalor')="N"
>				if &oj3<=0
>					oj9=iif(!empty(cam),cam+' No Puede Ser Menor o Igual a Cero, Verifique, Por Favor','Campo No Puede Ser Menor o Igual a Cero, Verifique, Por Favor')
>				endif
>				oj8='&oj3<=0'
>			endif
>			if &oj2 and &oj8  and thisform.controls(x).enabled
>				thisform.mensajes(oj9,1)
>				oj7=oj+'.setfocus'
>				&oj7
>				thisform.refresh
>				return 0
>			endif
>		endif
>	endif
>endfor
If it's not broken, fix it until it is.


My Blog
Previous
Reply
Map
View

Click here to load this message in the networking platform