DataToXLS1 Datatype.

[campiki]

Desde ya agradeceros incluso la molestia de leeros mi consulta.

Aquí va la duda...

Uso un componente DataToXLS para pasar una query a excel.

Este Query puede ser distinto según lo que pida el usuario, así que en tiempo de ejecución le doy valores.

DataToXLS1.GetFields.Assign( dbgrid1.Columns );
DataToXLS1.Columns[0].Title := 'Cabecera';
DataToXLS1.Columns[0].Alignment := taRightJustify;
DataToXLS1.Columns[0].DataField := 'PRODUCTO';

Así hago con todos los campos, el problema está en que hay uno que és un SUM que me lo pasa a Excel como campo numérico guardado como texto.

Lo que quiero es que este pase como numérico. Así que intenté acceder en tiempo de ejecucción a:

DataToXLS1.Columns[0].DataType

Pero no sé cómo decirle que es un campo integer...

Gracias por vuestra ayuda.

[ecfisa]

Hola campiki.

Realmente es la primera vez que escucho hablar de ese componente, pero tirate el lance de que sea compatible con TFieldType y proba con:

Código Delphi [-]
   DataToXLS1.Columns[0].DataType(ftInteger); 
   // o tal vez la sintáxis sea 
   DataToXLS1.Columns[0].DataType:= ftInteger;

Lamento aportarte tan poco, pero como te dije no conozco el componente.

Saludos.

[campiki]

Gracias ecfisa

Empezado por ecfisa

DataToXLS1.Columns[0].DataType(ftInteger); // o tal vez la sintáxis sea DataToXLS1.Columns[0].DataType:= ftInteger;

La segunda ya la había probado la primera no, la he probado y no funciona.

Para dar más luz... las posibilidades que me da el componente son

ctBlank, ctBoolean, ctDouble, ctInteger, ctLabel

Este componente lo encontré en este foro y es este Firesoft - ExportSuite.

[ecfisa]

Hola.

Si la asignación te funciona del segundo modo DataType es una propiedad y no un método, espero que no sea de solo lectura.

¿ Asignando ctInteger no te funciona, te dá algún error ?

De todos modos esos componentes estan echos por Federico Firenze, y lo he visto ayer por aquí. Así que seguramente no vas a tardar mucho en encontrar respuesta.

Saludos.

[campiki]

Lo probé todo... (menos el que funciona)...

Y no va...