Mar
26
Modificar el informe Crystal Reports por código (VB.Net)
Filed Under (.Net) by admin on 26-03-2009
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
'....
Gracias compadre resolvi el problema con tu codgo (soy de peru)
de nada compañero, para eso estamos.
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?