Modificar el informe Crystal Reports por código (VB.Net)


Imports CrystalDecisions.CrystalReports.Engine

Public Class Form1
	'....
	Private Sub btnInforme_Click(ByVal sender As System.Object, _ 
           ByVal e As System.EventArgs) Handles btnInforme.Click
		Dim oInforme As New rptOrders()
		Dim oCampoInforme As TextObject
		Dim oDatosInforme As SummaryInfo

		' modificar títulos de columnas del informe (campos de texto)
		oCampoInforme = oInforme.ReportDefinition.ReportObjects.Item("Text1")
		oCampoInforme.Text = "Pedido"

		oCampoInforme = oInforme.ReportDefinition.ReportObjects.Item("Text2")
		oCampoInforme.Text = "Cliente"

		oCampoInforme = oInforme.ReportDefinition.ReportObjects.Item("Text3")
		oCampoInforme.Text = "Fecha"

		oCampoInforme = oInforme.ReportDefinition.ReportObjects.Item("Text4")
		oCampoInforme.Text = "Gastos"

		' modificar título del informe
		oDatosInforme = oInforme.SummaryInfo
		oDatosInforme.ReportTitle = Me.txtTitulo.Text

		' modificar el campo de fórmula que hay en el informe
		oInforme.DataDefinition.FormulaFields.Item("DuplicaEnvio").Text = _ 
                   "{Orders.Freight} / 4"

		' crear la fórmula de selección de registros
		oInforme.RecordSelectionFormula = "{Orders.OrderID} = " & Me.txtDesde.Text & _ 
                   " to " & Me.txtHasta.Text

		' ocultar el panel de grupo del visualizador de informes
		Me.crvInforme.DisplayGroupTree = False

		' cargar informe en el visualizador
		Me.crvInforme.ReportSource = oInforme

	End Sub

	'....

9 comentarios en «Modificar el informe Crystal Reports por código (VB.Net)»

  1. Muchas gracias amigo, fuiste de gran ayuda.
    Tengo una duda haber si me puedes ayudar.
    Me gustaria que no apareciera el panel de informes es decir, al crear un informe se crea un boton llamada ‘Informe Principal’ pues bien, me gustaria quitar esta etiqueta o panel. es posible?

  2. excelente amigo gran aporte no hay muchos codigo de crystal report espero aporte mas ejemplo sobre codigo de crystal report agradecidos

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *