Cambiar el ancho de las columnas

[rafita]

Hola,

Además de los enlaces y soluciones que te indica Neftalí, yo utilizo un pequeño truco: la función SUBSTRING. Realmente sólo la he utilizado en SQL Server y no sé si en Access estará disponible, pero creo que sí.

Observa en el siguiente ejemplo como utilizo la función SubString para concatenar varios campos y mostrarlos con la longitud deseada y con una cabecera(título) único.

'SELECT Ape1, Part1, Ape2, Part2, Nomb, Numer, Bloq, Port, Esca, Planta, Puer, CodPos, P.NIden AS Identificador,
SUBSTRING(RTRIM(P.Telfno)+SPACE(1)+RTRIM(P.Telfno1),1,20) AS Telefonos,
SUBSTRING(RTRIM(C.TVia)+SPACE(1)+RTRIM(C.NVia),1,35) AS Domicilio,
P.Id AS IdPer, P.CVia AS PCVia, TSPar, TSImpar
FROM Personas P INNER JOIN Calles C ON P.CVia=C.CVia WHERE Id='+QuotedStr(XIdPersona.Caption)

Esta solución es algo más primitiva pero fácil y útil.
Rafita.

[DarkByte]

Perdon Rafita.. pero no entendí muy bien lo de la función SubString... ¿Qué hace?... de igual modo, pregunto antes de pulsar F1... a si que dame un poco de tiempo a buscarlo...

Neftali, muchas gracias por tu respuesta... miraré los componentes y diré que tal.

Muchísimas gracias a ambos, de verdad

[rafita]

Hola compañero,

Perdona el retraso, pero últimamente no doy abasto.

Empezado por DarkByte

no entendí muy bien lo de la función SubString... ¿Qué hace?...

Es una función de SQL Server que devuelve una subcadena (lo que en Delphi haríamos con un Copy). En mi ejemplo, primero creo una cadena grande sumando varios campos y, después, obtengo una subcadena de la longitud deseada, por tanto la columna de la rejilla se adapta a dicha longitud.

Rafa.

[DarkByte]

Si, pero eso coge varios textos y los combina en uno, haciéndo la columna ajustada... Pero.. ¿Cómo consigo adecuar el ancho de las columnas a uno PREDEFINIDO?

Muchas gracias, rafita, por tu respuesta

[roman]

Empezado por DarkByte

¿Cómo consigo adecuar el ancho de las columnas a uno PREDEFINIDO?

¿Estás usando un DBGrid? F1 -> TDBGrid
¿Quieres ajustar el ancho de una columna? F1 -> TColumn

// Saludos

[roman]

Una forma rápida de hacerlo:

Declara una variable Columns de tipo TDBGridColumns que creas al incio:

Columns := TDBGridColumns.Create(nil, TColumn);

y destruyes al final

Columns.Free;

Cuando abras la tabla le asignas las columnas:

Código Delphi [-]
DBGrid.Columns := Columns;
Table.Open;

Al cerrar la tabla guardas la columnas:

Código Delphi [-]
Columns.Assign(DBGrid.Columns);
Table.Close;
DBGrid.Columns.Clear;

// Saludos

[DarkByte]

Bueno, comentar que lo conseguí minutos después de escribir mi último post.. no he podido responder antes por culpa del WinXP.. que no le da la gana de funcionar bien (escribo ahora mismo desde RedHat).

Nada más simple.. y tonto.. pero que me ha traido de cabeza.

Código Delphi [-]
  DBGrid.Columns.Items[0].With := 222

así predeterminaba el ancho de las columnas en cada consulta, y fijándome en cada valor de regreso de la consulta SQL pues he puesto los index por orden.

MUchísimas gracias a todos!!