none
Como recorrer los parametros de entrada que tiene un CrystalReport en vb RRS feed

  • Pregunta

  • Hola a todos nesecito ayuda, estoy tratando de crear un estandar que funcione para todos los reportes crystal reports,

    los reportes estarian en una ruta especifica, pero si un reporte ejecuta un procedimiento almacenado y este tiene parametros de entrada, necesitaria asignarle valores, para que se pueda ejecutar el reporte , pero como se trata de un estandar yo no see cuanto parametros habra , asi que tendria que recorrer todos los parametros que tenga el reporte crystal, aqui les muestro el codigo de lo que trato de hacer

     Dim cls As New cl_Login
        Public Sub New(ByVal valStrReporte As String, ByVal dt As DataTable, Optional ByVal ds As DataSet = Nothing)
            MyBase.New()
            'El Diseñador de Windows Forms requiere esta llamada.
            InitializeComponent()
            Threading.Thread.Sleep(2)
            Name = valStrReporte
            Threading.Thread.Sleep(2)
            If ds Is Nothing Then
                _dt2 = dt
            Else
                _tablas = ds
            End If
                   report.Load("C:\Users\Nexcorp\Desktop\app.publish\REPORTES_CR\" & valStrReporte & ".rpt")
            Threading.Thread.Sleep(2)
        End Sub
    
        Dim da As SqlDataAdapter
        Public _tablas As New DataSet
        Public _dt2 As New DataTable
        Public Procedimiento As String
        Dim cmd As SqlCommand
        Public report As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
       
        Private Sub impimir()
            
            'report.SetDatabaseLogon("sa", "informatica21")
            For Each p As CrystalDecisions.Shared.ParameterField In report.ParameterFields
    
            Next
    
    
            If _dt2.Rows.Count <> 0 Then
            report.SetDataSource(_dt2)
                Else
            report.SetDataSource(_tablas)
                End If
            Me.CrystalReportViewer1.ReportSource = report
            Me.CrystalReportViewer1.RefreshReport()
            'End If
        End Sub
    
        Private Sub frmreporte_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
            impimir()
        End Sub
    en el codigo trato de hacer un for each para recorrer los parametros y darle valores, como podria hacer esto???

    jeferson

    • Cambiado Enrique M. Montejo domingo, 3 de noviembre de 2013 11:53 Consulta Crystal Reports
    lunes, 30 de septiembre de 2013 21:43