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