Saludos.


Tengo una pequeña aplicacion en la cual, mediante codigo, en tiempo de ejecucion, genero un DataTable y lo lleno. Los datos generados, aparte de otros que calculo en diferentes TextBoxs y Labels, los tengo en una forma (WinForm).

Mi pregunta es:

Como puedo yo pasar los datos que ya tengo en la forma a un reporte??

Trate, pero siempre me pide conexion a una Base de Datos, y yo NO ME CONECTO a ninguna base de datos. Incluso trate con un DataAdapter, pero pide conexion.

Otra pregunta:

Los campos del reporte necesariamente son campos de una tabla???

Si no, como hago para pasar el valor de una variable a un campo en el reporte?? (Es otra posibilidad, ya que los datos son calculados y estan en variables declaradas en las distintas funciones)

Agradeceria me ayudaran en esto, si fuera posible con un ejemplo practico. He ido a muchos sitio en la web, pero en ninguno he halaldo nada concreto.

Si sirve de algo, estoy usando Visual Studio 2008.

Por su atencion, gracias.


JOSE LUIS.

' A falta de una mejor opcion, despues de ver muchos foros y manuales, tome esto como la
' mejor opcion para pasar datos de una forma a un reporte en tiempo de diseño.
' Puede que no sea la mejor forma, pero funciona.
' Ahora, que es chapucero, ES CHAPUCERO, pero a efectos practicos .....
' Observacion: Hasta el momento he asignado 45 campos de parametros en el reporte y no se ha reventado...

' Definimos el reporte y el contenedor de los datos que vamos a parar
Dim Rpt_EspAn As New CrystalDecisions.CrystalReports.Engine.ReportDocum ent()
Dim rpDatos As CrystalDecisions.Shared.ParameterValues = New CrystalDecisions.Shared.ParameterValues()

' Definimos las variables para CRYSTAl que vamos a poblar y a pasar al reporte. Nos toca una por una (ni modo).
Dim dsClnte As CrystalDecisions.Shared.ParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue()
Dim dsAPR As CrystalDecisions.Shared.ParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue()
Dim dsMesPend As CrystalDecisions.Shared.ParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue()

' Cargamos el archivo fisico del reporte del raiz
Rpt_EspAn.Load("..\MiReporte.rpt")

' Asignamos el valor a la variable creada como parametro de Crystal.
' Note que puede ser el valor de CUALQUIER Objeto en nuestra forma Actual.
' Aqui yo solo uso valores de Labels y TextBoxs (De mi forma, cambien los valores de su forma)
dsClnte.Value = L_NombreCliente.Text
dsDifPagar.Value = Lx_DifPagar.Text
dsAPR.Value = Lx_APR.Text


' Cargamos el contenedor de CRYSTAL con las variables con datos.
' El proceso es engorroso, ya que toca cargar una por una, y una por una borrar (no se otra forma)
' por que si no, asigna a TODOS los campos el valor ultimo cargado.
' NOTA: Los nombres de los campos en CRYSTAL (los que estan entre comillas dobles)
' DEBEN ser IGUALES, ya que son Case Sensitive. Estos son los valores que se
' definen en el reporte (.RPT) como "Parameter Fields".
rpDatos.Add(dsClnte)
Rpt_EspAn.DataDefinition.ParameterFields("Clnte"). ApplyCurrentValues(rpDatos)
rpDatos.Clear()

rpDatos.Add(dsDifPagar)
Rpt_EspAn.DataDefinition.ParameterFields("DifPagar ").ApplyCurrentValues(rpDatos)
rpDatos.Clear()

rpDatos.Add(dsAPR)
Rpt_EspAn.DataDefinition.ParameterFields("APR").Ap plyCurrentValues(rpDatos)
rpDatos.Clear()

' Asignamos el reporte como source del Crytal viewer
Form1.CrystalViewerReport1.ReportSource = Rpt_EspAn

'ya esta.



Si alguien sabe alguna forma mejor, avisenme.

Saludos desde Houston.


JOSE LUIS.
PD: lo hice con VS 2008 Pro.