Unir 2 campos en en un List
Publicado por Pedro (27 intervenciones) el 16/02/2004 22:08:31
Hola, a ver si podeis ayudarme.
Estoy realizando un programa y necesito unir 2 campos en un List.
Necesito que los campos queden alineados de la siguiente forma.
campo1 xxxxxxxxxxxxxxxxxxxxx campo2
campo1 xxxxxxxxxxxxxxxxxxxxx campo2
A mi lo que me ocurre cuando intento unirlos es que se quedan de esta forma dependiendo de la longitud de cada campo, pongo un ejemplo.
campo1 xxxxxxxxxxxxxxxxxxxxxx campo2
con distinta longitud xxxxxxxxxxxxxxxxxxxxx campo2
Lo que quiero es que se quede cuadrado independientemente de la longitud.
El codigo que tengo yo es el suiguiente, por cierto no veo el error por mas vueltas que le doy.
A ver si lo veis vosotros.
Espacios = ""
For Cont_Esp = Len(Tabla.Fields("NOMBRE_WEW")) To 50 Step 1
Espacios = Espacios & "x"
Next Cont_Esp
LstPrincipal.AddItem Tabla.Fields("NOMBRE_WEW") & Espacios & _Tabla.Fields("INFORMACION")
Muchas gracias por ayudarme
Estoy realizando un programa y necesito unir 2 campos en un List.
Necesito que los campos queden alineados de la siguiente forma.
campo1 xxxxxxxxxxxxxxxxxxxxx campo2
campo1 xxxxxxxxxxxxxxxxxxxxx campo2
A mi lo que me ocurre cuando intento unirlos es que se quedan de esta forma dependiendo de la longitud de cada campo, pongo un ejemplo.
campo1 xxxxxxxxxxxxxxxxxxxxxx campo2
con distinta longitud xxxxxxxxxxxxxxxxxxxxx campo2
Lo que quiero es que se quede cuadrado independientemente de la longitud.
El codigo que tengo yo es el suiguiente, por cierto no veo el error por mas vueltas que le doy.
A ver si lo veis vosotros.
Espacios = ""
For Cont_Esp = Len(Tabla.Fields("NOMBRE_WEW")) To 50 Step 1
Espacios = Espacios & "x"
Next Cont_Esp
LstPrincipal.AddItem Tabla.Fields("NOMBRE_WEW") & Espacios & _Tabla.Fields("INFORMACION")
Muchas gracias por ayudarme
Valora esta pregunta
0