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
'....