Ver Mensaje Individual
  #4 (permalink)  
Antiguo 23-06-2008, 01:52:35
federicortiz federicortiz is offline
Un Nuevo Amigo
 
Registrado: feb 2005
Ubicación: Bragado
Posts: 18
federicortiz Valoración +2
Contactar con federicortiz a través de MSN
Predeterminado 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
Responder Con Cita