Alex Medina

Mi blog, mis cosas…

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

	'....