none
Crear reporte usando Lista de Objetos RRS feed

  • Pregunta

  • hola alguien sabe como crear un reporte mediante una lista de objetos.

    tengo esto:

    Programe las capas de negocio, datos, entidad y presentacion; y agrege una mas la de reportes donde cree un reporte de crystal pero no se como enlazarlo; y no me ggustaria usar dataset's.

    saludos!!!

    viernes, 15 de mayo de 2015 0:04

Todas las respuestas

  • Saludos:

    La forma de llenar los reportes es:

    1) Parametros: Valores individuales, vinculados o no unos a otros.

    2) Listas de datos: valores vinculados unos a otros con campos communes a todos.

    Pueden ser las dos opciones combinadas o cada una separada.

    Para la segunda opcion solo se permiten objetos que sean contenedores de listas (DataSet, DataTable, Collections, etc)

    Espero ayude.

    JOSE LUIS


    Dios NO los llamo LAS DIEZ RECOMENDACIONES

    viernes, 15 de mayo de 2015 15:23
  • Hola:
    En un Form con 1 CrystalReportViewer y 1 Button, copia y pega el siguiente codigo

    Imports System.IO
    Imports System.Data.SqlClient

    Public Class Form1

        Private Sub btnLista_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLista.Click
            Dim Lista As New List(Of Cliente)
            Lista.Add(New Cliente("PEPE", "PEREZ", "MARTINEZ"))
            Lista.Add(New Cliente("LOLY", "ATXA", "RUIZ"))
            Lista.Add(New Cliente("MANUEL", "GARCIA", "LOPEZ"))
            Lista.Add(New Cliente("SARA", "REY", "CONDE"))
            '
            Try
                'Crar uma nueva instancia del informe
                Dim rptImagen As New CrystalReport2
                'Usa la lista como fuente de dados para el informe
                rptImagen.SetDataSource(Lista)
                'Muestra el informe en el reportviewer
                Me.CrystalReportViewer1.ReportSource = rptImagen
            Catch ex As Exception
                MessageBox.Show("Alguna cosa ha errado, verifique... : " & ex.Message)
            End Try
        End Sub

    P.D.
    Se hace uso de la clase Cliente cuyo codigo es:

    Public Class Cliente
        Public msNombre As String
        Public msApellido1 As String
        Public msApellido2 As String

        Public Property Nombre() As String
            Get
                Return msNombre
            End Get
            Set(ByVal value As String)
                msNombre = value
            End Set
        End Property

        Public Property Apellido1() As String
            Get
                Return msApellido1
            End Get
            Set(ByVal value As String)
                msApellido1 = value
            End Set
        End Property

        Public Property Apellido2() As String
            Get
                Return msApellido2
            End Get
            Set(ByVal value As String)
                msApellido2 = value
            End Set
        End Property

        Public Sub New(ByVal Nombre As String, ByVal Apellido1 As String, ByVal Apellido2 As String)
            msNombre = Nombre
            msApellido1 = Apellido1
            msApellido2 = Apellido2
        End Sub
    End Class

    Un saludo desde Bilbo
    Carlos

    martes, 19 de mayo de 2015 7:23
  • Gracias por este tema, el codigo esta bien pero que pasa con el diseño,

    en el reporte tienes que especificar los parametros, no encuentro una forma de asignar mis entidades como

    parametros del reporte(IFieldObject), solo puedo establecerle con un odbc como hago esto en diseño,

    gracias.

    martes, 28 de julio de 2015 21:59