Autor Tema: Re: A ver si veis el error (Leído 1347 veces)

MiguelPG · « **en:** Miércoles 19 de Marzo de 2003, 11:12 »

En un control combox estoy añadiendo datos de un recordset entre los que figuran el nombre de la empresa y el del titular de la misma.
Con el fin de que al concatenar los dos campos quede tabulado el nombre del titular, cuando cargo el combobox lo hago con el siguiente código:
cboProveedores.AddItem rstProveedores("Empresa") & Space(35-len(rstproveedores("Empresa")) & " " & rstProveedores("Titular")

Como habreis podido imaginar rstPrpveedores es el nombre del recordset.
Bien la carga la hace sin problemas, pero el nombre del titular no queda tabulado a 35 espacios que sería lo lógico, si no que tabula un número de espacios que no consigo saber de dónde le saca.

thedoctor

Usa la funcion string(X,X), si no funciona crea una variable que contega el nombre de empresa, añades los espacios y el titular, calcula las tabulaciones tu mismo, no es tan dificil.

J.M.Movilla

A mí me parece que la instrucción es perfecta. Sospecho que lo que te ocurre es que estás usando caracteres true type de espacios compensados, por lo que la segunda columna baila de acuerdo con la anchura de los caracteres del nombre de la empresa: veamos un ejemplo de dos empresas con un nombre de 20 caracteres, por lo que se insertarán 15 espacios (para que se aprecie bien, pongo puntos en lugar de espacios):

iiiiiiiiiiiiiiiiiiii...............Juan
mmmmmmmmmmmmmmmmmmmm...............Luis

En ambos casos se ha construido la fila de acuerdo a tu instrucción, y ya ves el resultado.

¿No será eso lo que te ocurre?

Saludos

MiguelPG

Hola J.M.
Gracias por tu observación.
Era eso exactamente lo que pasaba. He cambiado el tipo de fuente y funciona perfectamente.
La solución que daba Thedoctor no sirve porque (según parece por su respuesta) no entendió muy bien lo que yo quería hacer. En cualquier caso, gracias tambien a tí Thedoctor.
Muchas gracias a los dos y voy a seguir trabajando.

J.M.Movilla

Hola, Miguel, de nuevo:

Me he encontrado esta utilidad en Canal #Visual Basic, y me he acordado de tí... Creo que puede ser la solución a tu problema, presentando los dos campos en dos columnas con un separador...

Hasta otra.