Formatear datos en VSReport - VB-MUNDO

MiguelPG · #1 (**permalink**) 10-07-2005, 20:23:35

Hola de nuevo.
Estoy empezando a utilizar los controles de C1 y ahora trato de realizar informes con el VSReport y el VSPrinter que, por lo que veo en los ejemplos, están francamente geniales.
Bueno en mi primer "pinito" he conseguido casi todo lo que quería en un informe, a falta de dos cosas:

1.- Cuando trato de formatear un campo numérico para presentarle en el informe, no lo consigo. Os pongo el código para que le veais:

With vsr.Sections(vsrDetail)
.Height = 250
.Visible = True
Set f = .Fields.Add("FldID", "idObra", 100, 0, 300, 250)
f.Calculated = True
Set f = .Fields.Add("FldTitulo", "Left(Titulo,50)", 1000, 0, 3400, 250)
f.Calculated = True
Set f = .Fields.Add("FldNombre", "Nombre", 5000, 0, 1900, 250)
f.Calculated = True
Set f = .Fields.Add("Fldapellidos", "Apellidos", 6500, 0, 1900, 250)
f.Calculated = True
Set f = .Fields.Add("FldValoracion", "Valoracion", 8600, 0, 800, 250)
f.Calculated = True
End With

Como vereis, en el campo TITULO puedo limitar la longitud a imprimir sin problemas, pero en el campo VALORACION cuando pongo Format(Valoración, "##,##0.00") me dá error.
He probado de todas las maneras: Poniendo toda la instrucción entre comillas, leyendo el valor de valoración y asignándosele después a una variable formateada, y nada.
¿Veis alguna manera de "engañar" a este puñetero y que deje formatear el campo?

y por último:

2.- Quiero totalizar ese mismo campo para presentar su valor al final del informe, pero aunque haga una suma acumulativa del tipo TOTAL=TOTAL+VALORACION dentro del bloque With ... End Whit, sólo me dá el valor del primer registro.

Bueno, muchas gracias por vuestra paciencia. :smt006

mensazen · #2 (**permalink**) 10-07-2005, 22:52:23

Hola Miguel:

Yo utilizo normalmente el ReportDesigner por lo que no pongo código así que no se si te indico lo correcto pero en vez de

Cita:

Set f = .Fields.Add("FldValoracion", "Valoracion", 8600, 0, 800, 250)

¿has probado a darle el formato al dato en vez de al field?

Código:

Set f = .Fields.Add(format("FldValoracion", "#,##0.00·), "Valoracion", 8600, 0, 800, 250)

Aunque quizás lo más lógico sea que le des formato así

Código:

Set f = .Fields.Add("FldValoracion", "Valoracion", 8600, 0, 800, 250)
            .Fields("Valoracion").Format="#,##0.00")

Respecto a la segunda pregunta yo coloco el valor en el pie del detalle y, en vez de ir haciendo sumas en el bucle, pondría, en tu caso

Código:

TOTAL=SUM(Valoracion)

Espero haberte podido ayudar en algo
:smt006

MiguelPG · #3 (**permalink**) 11-07-2005, 01:14:01

Muchas gracias Mensazen por tu respuesta.
Son ahora las 3 de la madrugada y me voy a poner a probarlo.
Ya od contaré
Saludos a todos