Problema para que se visualicen valores de TextBox en Reporte de Report Viewer

Question

Hola

Tengo un reporte hecho en report viewer.

La mayor parte de la información la plasmo por medio de un procedimiento almacenado, hasta aquí todo bien.

Uno de las necesidades es mostrar el valor de dos TextBox donde previamente el usuario capturó un rango de fechas, esto para que se pueda apreciar qué día inicia y qué día finaliza la información plasmada, más sin embargo no logro que estos datos se muestren en el reporte, agradecería pudieran ver mi código para decirme qué parte está incorrecta.

Para poder mostrar en el reporte los valores capturados inicialmente hice una clase llamada 'Parametros' que contiene lo siguiente:

Imports System.Collections.Generic

Public Class Parametros

    Public Property Desde() As DateTime
    Public Property Hasta() As DateTime

End Class

Posteriormente en el .rdlc agregué un DataSet que contiene los campos de la clase (Desde y Hasta); dichos valores los asocié como expresiones a unas cajas de texto dentro del diseño de mi reporte, quedando algo así en cada una:

=First(Fields!Desde.Value, "DataSet2")
=First(Fields!Hasta.Value, "DataSet2")

Posteriormente en el evento Load del formulario donde tengo cargado el reporte.rdlc, tengo lo siguiente:

Public Class frmRep
    Public Invoice As New List(Of Parametros)()  'Creo una lista para pasar los campos de la clase
   
    Private Sub frmRep_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       

   ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet2", Invoice)) 'Se indica que el DataSet2 es el DataSource del reporte

    End Sub

    Private Sub TraerRangoFechas()  'Función donde igualo los campos de la clase con los TextBox donde el usuario captura rango de fechas

        'Realizo una instancia de la clase Parametros
        Dim invoice As New Parametros() 'El nombre de Parametros es la clase
        invoice.Desde = DateValue(Me.TextBox2.Text) ' TextBox2=Fecha Inicial
        invoice.Hasta = DateValue(Me.TextBox3.Text) 'TextBox3=Fecha Final

        Dim inst As New frmRep()  'Creo una instancia del formulario donde se encuentra el reporte
       
        inst.Invoice.Add(invoice) 'Le paso la instancia de la clase a la lista Invoice
        inst.Show()

    End Sub

   'Código del botón ImprimirReporte
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TraerRangoFechas()
        'En este espacio tengo el nombre del procedimiento almacenado con los parámetros que requiere para mostrar la     información, esto funciona bien.
        Me.ReportViewer1.RefreshReport()

    End Sub

End Class

Al ejecutar el reporte no me marca ningún error, la información que trae el procedimiento almacenado se muestra como debe ser, pero los espacios del rango de fechas (Desde y Hasta) se muestran en blanco, alguna sugerencia u observación de lo que estoy haciendo mal?

Desde ya muchas gracias.

Answer 1

Asi a ojo tiene buena pinta. En principio, deberia funcionar tal como lo tienes. Si no funciona, indica que se esta escapando algo que no es obvio a simple vista. Utiliza el debugger y pon un punto de ruptura justo en el punto en el que muestras el reporte, y examina sus datasources a ver si le estan llegando correctamente los valores que esperabas.

Answer 2

Agradezco tu respuesta, hice lo que me sugeriste y comprobé que al datasource sí le llega la información pero simplemente no la muestra en los TextBox del reporte, sigo atorado con esto. Agradecería mucho su ayuda.

Answer 3

Aunque en teoria deberia funcionar con el List(Of Parametros), yo siempre lo he visto hacer pasando un DataTable al report. Prueba a usar en lugar del List un DataTable que tenga dos columnas llamadas Desde y Hasta, a ver si asi funciona.

Otra opcion que se me ocurre es cargar los textboxes con =Parameters!Desde.Value y lo mismo con Hasta, y pasarle los dos valores a traves de la coleccion Parameters del LocalReport, en lugar de usar los DataSources. Logicamente, tendras que definir los parametros en el informe, igual que tienes que definir el datasource cuando usas un datasource para pasar los datos.

Answer 4

Voy a probar usando parametros y te cuento cómo me fue. Muchas gracias.

Answer 5

Usando parámetros no tuve mayor problema para mostrar la información. De momento los emplearé de esta forma hasta que logre resolver lo de la clase.

Comparto mi código por si a alguien le sirviera:

'En el diseño del .rdlc agregué dos parametros (ParametroDesde y ParametroHasta)

'En el formulario donde está cargado el RV agregué lo siguiente:

'En este caso estoy tomando los valores de los parámetros a partir de los text box del formulario

Imports Microsoft.Reporting.WinForms

Private Sub Reporte_Load(sender As Object, e As EventArgs) Handles MyBase.Load

 Dim parameters(1) As ReportParameter
        parameters(0) = New ReportParameter("ParametroDesde", Formulario.Desde.Text)
        parameters(1) = New ReportParameter("ParametroHasta", Formulario.Hasta.Text)
        ReportViewer1.LocalReport.SetParameters(parameters)
        Me.ReportViewer1.RefreshReport()

End Sub

Gracias por las sugerencias, saludos.

Answer 6

Hola Zarpis

Con base a tu consulta, para que las soluciones brindadas por los colaboradores del foro puedan ser útiles para el resto de la comunidad, favor de marcarlas.

Saludos Cordiales

Gracias por usar los foros de MSDN.

Pablo Rubio
 _____

Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde.　

Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft. 　

Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.