Formulas en Crystal Reports 9

[jhmaponte]

hola tengo un problema en visual estudio 2008 en mi crystal report pero no se como agregar mas datos me podrian ayudar por ejemplo que salga un dato de ciudad

este es el codigo
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class OficioUno

Dim crReporte As New ReportDocument()
Public nombre As String
Public desc_centro As String
Public codigo As String
Public numeroOficio As String




Public Sub GenerarReporteUno()
crReporte = New ReportDocument()
crReporte.Load("c:\BdAccess\oficio.rpt")
crReporte.DataDefinition.FormulaFields(0).Text = "'" + nombre + "'"
crReporte.DataDefinition.FormulaFields(1).Text = "'" + desc_centro + "'"
crReporte.DataDefinition.FormulaFields(2).Text = "'" + codigo + "'"
crReporte.DataDefinition.FormulaFields(6).Text = "'" + numeroOficio + "'"


crvViewer.ReportSource = crReporte
crReporte.ExportToStream(ExportFormatType.Portable DocFormat)
End Sub

Private Sub crvViewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crvViewer.Load

End Sub

----------------------------------------------------
este codigo es de mi boton

Private Sub btnImprimir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnImprimir.Click
Dim numeroOficio As String
numeroOficio = Me.txtNoOficio.Text

Dim reporte As New OficioUno()
If (Not Me.comboNombres.Text.Equals(String.Empty)) Then
Dim persona As IdPersona
persona = CType(Me.comboNombres.SelectedItem, IdPersona)

reporte.nombre = persona.Nombre

reporte.desc_centro = persona.desc_centro
reporte.codigo = persona.codigo

reporte.numeroOficio = numeroOficio



reporte.GenerarReporteUno()
reporte.ShowDialog()
End If