Aplicar filtros crystal vb6

[analoyra]

Hola, estoy intentando aplicar filtros para mostrar un reporte hecho con el crystal 8
Dim crApp As New CRAXDRT.Application
Dim crReport As New CRAXDRT.Report

'Abrir el reporte
Screen.MousePointer = vbHourglass


Set crReport = crApp.OpenReport(App.Path & "\report1.rpt", 1)
crReport.Database.SetDataSource crReport

crReport.RecordSelectionFormula = "{compcompra.nrocomp} = " & FrmCompra.TxtNumComp

crReport.DiscardSavedData
CRViewer.ReportSource = crReport
CRViewer.DisplayGroupTree = False
CRViewer.ViewReport
Screen.MousePointer = vbDefault


Pero me tira un error que se requiere una cadena, yo lo que necesito es tomar solo los datos referidos al numero de factura que ingreso, como por ejemplo fecha, tipo de comprobante (que esta en otra tabla)

gracias de antemano!!!

[Kruzado]

revisa que el campo nrocomp es numerico o texto, si es tecto la formula es asi

crReport.RecordSelectionFormula = "{compcompra.nrocomp} = '" & FrmCompra.TxtNumComp & "'"

[analoyra]

ahora funciona, el problema es que no hace lo que necesito!! porque cargo el encabezado de una factura (punto de venta, num factura, tipo comprobante, fecha) y necesito que me muestre esos datos, si le doy ok me imprima y carque en una tabla.
Alguna idea? porque asi como me indicaste me muestra el primer dato de la tabla

Gracias

[Kruzado]

porke no encuentra lo ke mandaste a buscar.... sea eso? te insisto... revisa el tipo de dato del campo que estas consultando

[kikin_pc]

Iniciado por analoyra

Hola, estoy intentando aplicar filtros para mostrar un reporte hecho con el crystal 8
Dim crApp As New CRAXDRT.Application
Dim crReport As New CRAXDRT.Report

'Abrir el reporte
Screen.MousePointer = vbHourglass


Set crReport = crApp.OpenReport(App.Path & "\report1.rpt", 1)
crReport.Database.SetDataSource crReport

crReport.RecordSelectionFormula = "{compcompra.nrocomp} = " & FrmCompra.TxtNumComp

crReport.DiscardSavedData
CRViewer.ReportSource = crReport
CRViewer.DisplayGroupTree = False
CRViewer.ViewReport
Screen.MousePointer = vbDefault


Pero me tira un error que se requiere una cadena, yo lo que necesito es tomar solo los datos referidos al numero de factura que ingreso, como por ejemplo fecha, tipo de comprobante (que esta en otra tabla)

gracias de antemano!!!

este mensaje sale cuando tu reporte tiene variables de inicio verifica que coincida el tipo de variable

[analoyra]

ya lo solucione, muchas gracias
ahora el problema es que yo quiero que me muestre 1 solo dato que yo selecciono:
lo que hago es esto, la sentencia sql funciona, pero cuando muestra el crviewer me salen todos los datos de la tabla
Call Conecta
SQL = "SELECT * from CompCompra Where NroComp='" & FrmCompra.TxtNumComp.Text & "' "
rsAux.Open SQL, cn, adOpenDynamic, adLockPessimistic
If rsAux.RecordCount < 1 Then
MsgBox ("Anda a Cagar")
Else
rsAux.Find "NroComp='" & FrmCompra.TxtNumComp.Text & "'"
If rsAux.EOF Then
MsgBox "No encontrado"
Else
Report.SQLQueryString = sql
Report.DiscardSavedData
Report.EnableParameterPrompting = False
Report.RecordSelectionFormula = "{compcompras.nrocomp}=" & FrmCompra.TxtNumComp.Text
End If

Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport



creo que esta mal el RecordSelectionFormula....... como lo podria hacer??
GRACIAS

[Kruzado]

viejito.... muy desordenado......

fijate una cosa.... cuando abres la base de datos, n a variabe SQL, manejas e campo nrocomp como texto y mas abajo en el selectionformua majeas el mismo dato como numero..... de verdad pienso que tienes que definir bien que tipo de datos estas manejando y en base a eso hacer as correccines correspondientes

[analoyra]

Iniciado por Kruzado

viejito.... muy desordenado......

fijate una cosa.... cuando abres la base de datos, n a variabe SQL, manejas e campo nrocomp como texto y mas abajo en el selectionformua majeas el mismo dato como numero..... de verdad pienso que tienes que definir bien que tipo de datos estas manejando y en base a eso hacer as correccines correspondientes

Gracias, era ese el problema. Es mi primera aplicacion en programacion, VB6 y Crystal... sepan disculpar las preguntas que para uds son obvias

Muchas Gracias por la ayuda!