Re: Detalle de una factura con Crystal Reports El siguiente código es usado para rellenar un informe hecho en crystal roports 10:
Dim objClientes As New Clientes ' creo un objeto de la Clase cuyos datos quiero listar en este caso clientes
Dim Reporte As New rptInfClientes ' creo un objeto del tipo *.rpt creado para imprimir listado
Dim Tabla As New System.Data.DataTable ' creo una tabla para asignársela al *.rpt
Dim TituloInforme As CrystalDecisions.CrystalReports.Engine.TextObject = Reporte.ReportDefinition.Sections(1).ReportObjects ("txttitulo") ' Creo un objeto con las mismas propiedades de un objeto texto del informe a mostrar
Dim SubTituloInforme As CrystalDecisions.CrystalReports.Engine.TextObject = Reporte.ReportDefinition.Sections(1).ReportObjects ("txttitulo2") ' Lo mismo que en la linea anterior
Tabla = objClientes.LlenarGrilla(InstruccionSQL) ' Lleno la tabla con lo que devuelve Instruccionsql (consulta SQL)
TituloInforme.Text = Titulo1 ' Lleno el titulo del infome en tiempo de ejecucion con el contenido de titulo1
SubTituloInforme.Text = Titulo2 ' Lo mismo que la linea anterior
Reporte.SetDataSource(Tabla) ' Se la asigno al *.rpt la tabla con los datos obtenidos
Me.CrystalReportViewer1.ReportSource = Reporte ' muestro y/o imprimo
Esa es una forma de pasar parametros al inmforme que has creado. Yo preparo los reportes a partir de una conexion odbc a una base de datos access y a sus respectivas tablas.
Espero te sirva |