tengo un reportviewer en vb.net y tengo 2 .rdlc archivos a saber Informe1 y Informe2.
ambas tienen el mismo diseño de una tabla, pero Informe1 ha parámetro y el filtro, Informe2 sólo muestra todo, desde mi registro.

sé cómo enlazar los orígenes de datos a reportviewer en tiempo de diseño, pero no sé cómo hacer que el tiempo de ejecución, necesito de conmutación de orígenes de datos cuando se carga el formulario la primera vez y cuando el usuario en realidad la búsqueda de algo. básicamente esto es lo que tengo en mente.

http://imageshack.us/photo/my-images/407/reportzm.png/

necesito todos los registros que se muestra la primera vez que se carga el formulario. así que voy a necesitar Informe2.rdlc para el que no tiene filtros.

Cuando tengo Informe1.rdlc acabado, esto es lo que vemos

http://imageshack.us/photo/my-images/255/er11.png/

no se muestra nada excepto nos introduzca un valor en el cuadro de texto y haga clic en buscar los registros serán cargados en base a lo que estamos buscando.

aquí está el código.

Imports Microsoft.Reporting.WinForms

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'houseDataSet.Table1' table. You can move, or remove it, as needed.


        Me.Table1TableAdapter.Fill(Me.houseDataSet.Table1)

        Me.ReportViewer1.RefreshReport()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim a As New ReportParameter("ReportParameter1", TextBox1.Text)
        ReportViewer1.LocalReport.SetParameters(New ReportParameter() {a})
        ReportViewer1.RefreshReport()
    End Sub
End Class
InformationsquelleAutor user1566093 | 2012-08-17

2 Comentarios

  1. 2

    llenar su tabla de datos con los datos filtrados. y, a continuación, enlazar.

    Me.Table1TableAdapter.Fill(Me.houseDataSet.Table1)

    a algo así como:

    Table1 = FilteredQueryAsDataTable
    
    Me.Table1TableAdapter.Fill(Me.houseDataSet.Table1)
  2. 0

    este código podría ayudar u 🙂 (vb.net 2008 código)
    estoy usando este código en un botón. así que cuando me la prensa; el informe de crystal se muestra en el visor de informes de crystal y mostrar los datos de la base de datos.

        Dim rpt As New CrystalReport1() 'The report you created. 
        Dim myConnection As SqlConnection
        Dim MyCommand As New SqlCommand()
        Dim myDA As New SqlDataAdapter()
        Dim myDS As New Database1DataSet1() 'The DataSet you created. 
        Try
            myConnection = New SqlConnection("type here your connection string")
            MyCommand.Connection = myConnection
            MyCommand.CommandText = "Select  * from table"
            MyCommand.CommandType = CommandType.Text
            myDA.SelectCommand = MyCommand
            myDA.Fill(myDS, "type here table name")
            rpt.SetDataSource(myDS)
            rptViewer.ReportSource = rpt
        Catch Excep As Exception
            MessageBox.Show(Excep.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try

Dejar respuesta

Please enter your comment!
Please enter your name here