FoxPro/Visual FoxPro - Una dificil...

 
Vista:

Una dificil...

Publicado por yigabait (17 intervenciones) el 11/07/2006 00:53:28
Hola. Supongamos que yo tengo un formulario con 1000 controles Label llamados: L1, L2, L3, L4,.... , L1000. Y una tabla con 1000 campos llamados F1, F2, F3, F4, ....,F1000. Y yo quiero, por medio de programación y de la manera más rápida, hacer que L1, L2, L3.... muestren el valor de F1, F2, F3.... respectivamente. Usualmente se haría así:

L1.caption = F1
L2.caption = F2
L3.caption = F3
L4.caption = F4
....
L1000.caption = F1000

Pero si yo quiero ahorrarme el trabajo de escribir TODO ese código como le haría?

Es decir, no hay una manera de hacer un Bucle y ocupar el valor del contador para sustituir al numero despues de la letra? Algo así

for c=1 to 1000
L+(c).caption = F+(c)
next

O es solo un sueño que tengo y que nunca se hara realidad?

Gracias por su tiempo.

P. D. me gustó esa de Yiga jaja
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Una dificil...

Publicado por Plinio (7841 intervenciones) el 11/07/2006 00:57:47
**Comienza por ahi. Por razones logicas no he probado este codigo

FOR i = 1 to 1000
campo = "Thisform.L"+ALLTRIM(STR(i))
valor = "F"+ALLTRIM(STR(i))
&campo..caption = "&valor"

ENDFOR
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

RE:Una dificil...

Publicado por Ernesto Hernandez (4623 intervenciones) el 11/07/2006 02:00:37
ha ver mi buen yigabait

FOR i = 1 to 10000

campo = "Thisform.L"+alltrim(STR(i))
valor = "Mitabla"+"F"+alltrim(STR(i))
? campo+".ControlSource="+valor

ENDFOR

Espero te sirva

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar