FoxPro/Visual FoxPro - Añadir a ListBox

   
Vista:

Añadir a ListBox

Publicado por Juan Carlos Lopez Lopez (128 intervenciones) el 29/01/2010 16:43:59
Buen dia Sres, necesito me ayuden con este pequeño codigo, en la 1ra parte añado mis campos, linea a linea como veran; en la 2da parte intento hacer un FOR que recorra ya que pueda tener N campos, pero me tira error en la tercera linea.

#define c01_LOC "Codigo"
#define c02_LOC "Nombre"
#define c03_LOC "Edad"
#define c04_LOC "Sexo"
#define c05_LOC "fecnac"

1.)
This.MoverLists1.lstSource.AddItem (c01_LOC)
This.MoverLists1.lstSource.AddItem (c02_LOC)
This.MoverLists1.lstSource.AddItem (c03_LOC)
This.MoverLists1.lstSource.AddItem (c04_LOC)
This.MoverLists1.lstSource.AddItem (c05_LOC)

2.)
FOR x=1 TO 5
elcampo= "c"+right("00"+alltr(str(x)),2)+"_LOC"
This.MoverLists1.lstSource.AddItem (&elcampo)
ENDFOR

Agradezco cualquier ayuda.
Saludos.
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
Imágen de perfil de Mauricio

Añadir a ListBox

Publicado por Mauricio (1367 intervenciones) el 29/01/2010 23:25:25
Esto:
FOR x=1 TO 5
elcampo= "c"+right("00"+alltr(str(x)),2)+"_LOC"
This.MoverLists1.lstSource.AddItem (&elcampo)
ENDFOR
Modificalo con esto:
FOR x = 1 TO 5
elcampo= "c00"+right(alltr(str(x)),2)+"_LOC"
Thisform.List1.AddItem (elcampo)
ENDFOR
Cuenta si eso es lo que quieres....
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