Pequeña rutina que permite implementar reportes con Crystal Report en los proyectos
que se desarrollan. Los pasos para esto son los siguientes:
Nota: tomar en cuenta que se utiliza VS profesional por ende, incluye Crystal Report.
Luego de diseñar el reporte, se inserta un objeto al proyecto llamado:
CrystalReportViewer1
Se importa las librerias:
Imports CrystalDecisions
Imports CrystalDecisions.ReportSource
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Crear un objeto ReportDocument:
Dim cryRpt As New ReportDocument
Crear una constante con la direccion fisica del reporte creado:
Const Ruta = "c:Reportes"
Finalmente se inserta la siguiente rutina para desplegar en el visor insertado
anteriormente, el reporte diseñado. Se puede colocar dentro de una clase,
evento, etc. para ver el resultado.
cryRpt.Load(Ruta & "RepAsignatura.rpt")
Dim crParameterFieldDefinitions As ParameterFieldDefinitions
Dim crParameterFieldDefinition As ParameterFieldDefinition
Dim crParameterValues As New ParameterValues
Dim crParameterDiscreteValue As New ParameterDiscreteValue
crParameterDiscreteValue.Value = 1
crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields
crParameterFieldDefinition = _
crParameterFieldDefinitions.Item("IdAsignatura") ''parametro a enviar
crParameterValues = crParameterFieldDefinition.CurrentValues
crParameterValues.Clear()
crParameterValues.Add(crParameterDiscreteValue)
crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
VisorReporte.ReportSource = cryRpt
VisorReporte.Refresh()
