Pasar Variable A Reporte

[aldo1982]

Hola Tengo Un Reporte En Blanco Y Keria Saber Si Por Ejemplo Tengo Un Text Y En El Tex Ingreo El Valor "que Rico Es El Fernet" , Como Hacer Para Ke Ese Valor "que Rico Es El Fernet" Me Aparesca En El Reporte Que Tengo En Blanco ...me Explico ?

o sea como lo ke sería pasar datos de un formulario a un archivo de texto pero en vez de ke sea un archivo de texto ke lo pase a un reporte...me explico ?

Bu3 Salu2 Y Gracias

[juanutcm]

hola:

rptText1.Text = Form1.Text1.Text

Ojala te sirva... de lo contrario ... seria mejor una explicacion de donde lo pasas ... yo supuse que era de un form

[aldo1982]

o sea me refiero a como si mostraria en un archivo de texto pero en ves de un archivo e texto ke se meustre en un reporte de crystal...no se si me explico

[wiro]

Haber amigo lo que creo que quieres es pasar el contenido de un contro text o de una variable a una campo en un reporte en crystal. si es eso puedes ahcer lo siguiente.

1. declara en el reporte en crystal la formulas o una formula que sera la qeu reciba el contendio de tu variable desde visual.

ya teniendo hecho esto ahora debes pasar desde vb el contenido de tu variable a la formula del reporte en crystal y para ello podes hacer lo siguiiente.

2. desde vb haces esto.

rep.Formulas(9) = "cuenta='" + Trim(Label33.Caption) + "'"

En este ej rep es el nombre del control en vb
cuenta es el nombre de la formula que declaraste en crystal
label33 es un control que trae el texto o contenido que quiero pasar al reporte, aca estoy usando un label pero puede ser una variable o un text.

recorda que debes hacer uso de las comillas tal y como te muestro en el ejemplo si no te dara error de tipos de datos.

bueno espero y te sirva y que sea eso a lo que te refieres.

WIRO

[aldo1982]

muchass gracias WIRO ahora lo probare y luego te cuetno ke tal me fue

salu2 y muchas gracias

[masir]

Hola, necesito q alquiennnnn me ayudeeeee

Tengo una aplicacion en visual basic, con una bd en access. Quiero insertar un reporte en crystal report para lo cual estoy usando la version 10, lo estoy haciendo con este codigo:

CrystalReport1.ReportFileName = 'ubicacion del archivo

CrystalReport1.Destination = crptToWindow 'envia a donde quiero enviar el reporte

CrystalReport1.WindowState = crptMaximized 'estado de la ventana
CrystalReport1.Action = 1

Pero me da el siguiente error "Imposible cargar informe", y se posiciona en esta instruccion CrystalReport1.Action = 1


por favor alguien podria ayudarme, ya no se que mas inventar para q los reporte se vean :S

[aldo1982]

hola mira youso CR8 por ahora nno mire el CR 10 :S

[GeoAvila]

bueno aqui te pongo un ejemplo

Código:

Option Explicit
Private crApp As New CRAXDRT.Application
Private crReport As New CRAXDRT.Report
Private Sub CargarReporte()
Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDRT.ParameterFieldDefinition
On Error GoTo ErrHandler
'Abrir el reporte
Screen.MousePointer = vbHourglass
 
mflgContinuar = True
Set crReport = crApp.OpenReport(App.Path & "\ReportesSQL\RptCuadre.rpt", 1)
' Parametros del reporte
Set crParamDefs = crReport.ParameterFields
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "fecha"
crParamDef.AddCurrentValue (Format(FechaFin.value, "DD/MM/yyyy")) 'un parametro de fecha
Case "usuario"
crParamDef.AddCurrentValue (Val(TxtCodUsr.Text)) ' un parametro de numero
End Select
Next
CRViewer1.ReportSource = crReport
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
Set crParamDefs = Nothing
Set crParamDef = Nothing
Exit Sub
ErrHandler:
If Err.Number = -2147206461 Then
MsgBox "Error al cargar el reporte", _
vbCritical + vbOKOnly
Else
MsgBox Err.Description, vbCritical + vbOKOnly
End If
mflgContinuar = False
Screen.MousePointer = vbDefault
End Sub

Nos Vemos