C1Report

21/07/2004 - 12:02 por kike | Informe spam
hola:

Tengo un DataSet creado en codigo y lo que quiero es ponerlo en el C1Report
lo que pasa los campos integer cuando lo configuro en el Detail no me salen
sin embargo el campo string si me sale alguien sabe por codigo como se
tiene que poner???
yo tengo este codigo:

f = .Fields.Add("LblcaL", "Horario", 0, 100, 3400, 300)

f.Calculated = True

Este si me sale pero el resto que los pongo igual no

Lo ideal es que mediante un bucle me leiera los campos y me los pusiera a
calculated=True hize algo asi pero no funciona todo esto esta metido en
el Detail del report

dim f as field

For i As Integer = 1 To datasetGeneral.Tables(0).Columns.Count - 1

f = .Fields.Add("LblcaL" + CStr(i),
datasetmio.Tables(0).Columns(i).ColumnName, 2000, 100, 3400, 300)

f.Calculated = True

Next



SALU2

Gracias

Preguntas similare

Leer las respuestas

#1 DJ_MAIO
22/07/2004 - 00:05 | Informe spam
Flaco aki el mas que contesta es Eduardo Morcilla y le
tirastes !VIVA LA PIRATERIA! a ver quien te dice .
hola:

Tengo un DataSet creado en codigo y lo que quiero es


ponerlo en el C1Report
lo que pasa los campos integer cuando lo configuro en el


Detail no me salen
sin embargo el campo string si me sale alguien sabe por


codigo como se
tiene que poner???
yo tengo este codigo:

f = .Fields.Add("LblcaL", "Horario", 0, 100, 3400, 300)

f.Calculated = True

Este si me sale pero el resto que los pongo igual no

Lo ideal es que mediante un bucle me leiera los campos y


me los pusiera a
calculated=True hize algo asi pero no funciona todo


esto esta metido en
el Detail del report

dim f as field

For i As Integer = 1 To datasetGeneral.Tables


(0).Columns.Count - 1

f = .Fields.Add("LblcaL" + CStr(i),
datasetmio.Tables(0).Columns(i).ColumnName, 2000, 100,


3400, 300)

f.Calculated = True

Next



SALU2

Gracias




Respuesta Responder a este mensaje
#2 kike
22/07/2004 - 09:59 | Informe spam
Pues por ejemplo, yo mismo,y el tema de la pirateria es muy extenso y que
levante la mano el que tenga todo original yo seguire aportando mi granito
de arena en el foro y para quien le interese hay va el codigo de carga en la
seccion detail del C1:

With RptGeneral.Sections(SectionTypeEnum.Detail)

.Height = 500

.Visible = True

f = .Fields.Add("horarioCtl", "Horario", 0, 100, 3400, 300)

f.Calculated = True

Dim leftCajas As Integer = 1000 +
(datasetGeneral.Tables(0).Columns(0).ColumnName.Length * 108) 'asi dara el
ancho de lacaja segun los caracteres que tenga y el left de la siguiente

For i As Integer = 1 To datasetGeneral.Tables(0).Columns.Count - 1

f = .Fields.Add("LblEt" + CStr(i),
datasetGeneral.Tables(0).Columns(i).ColumnName, leftCajas, 100, 3400, 300)

f.Calculated = True

leftCajas = leftCajas +
(datasetGeneral.Tables(0).Columns(i).ColumnName.Length * 108)

Next

End With
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida