Otra pregunta sobre Crystal y VB6

[analoyra]

he hecho esta consulta en un Form con crviewer
Private Sub Form_Load()
Call Conecta
Dim sSql As String
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
Screen.MousePointer = vbDefault
aux = FrmCompra.TxtNumComp.Text
sSql = "SELECT Comprobante.Comp_Clave, Comprobante.Comp_Desc, CompCompra.NroComp, CompCompra.Fecha_Emision, CompCompra.PtoVta_id, Comprobante.Comp_Sigla FROM Comprobante, CompCompra WHERE Comprobante.Comp_Clave = CompCompra.comp_clave AND CompCompra.NroComp = aux"
CrystalReport1.SQLQueryString = sSql
CrystalReport1.DiscardSavedData
CrystalReport1.EnableParameterPrompting = False
Form1.Show
CRViewer1.ViewReport
End Sub



Pero la consulta solo me trae el primer dato de la tabla, no el dato que le pido del FrmCompra
Alguien sabe que hice mal?
Gracias

[Piruleta]

¿En qué sección del informe le has puesto el dato a mostrar? Salu2.

[Kruzado]

aux es una variabe externa a tus tablas, como no existe dicha variable, al buscar los elemntos que coincidan on tu consulta no encuntra ninguno y el puntero se va al primer registro de las tablas, para solucionar esto, debes sacar auxiliar de tu consulta, algo como :

sSql = "SELECT Comprobante.Comp_Clave, Comprobante.Comp_Desc, CompCompra.NroComp, CompCompra.Fecha_Emision, CompCompra.PtoVta_id, Comprobante.Comp_Sigla FROM Comprobante, CompCompra WHERE Comprobante.Comp_Clave = CompCompra.comp_clave AND CompCompra.NroComp =" & aux

consulta, con que motor trabajas? sql, acces, etc

[analoyra]

Gracias! lo solucione poniendo esto asi
Call Conecta
Screen.MousePointer = vbHourglass
Screen.MousePointer = vbDefault
sql = "SELECT * from CompCompra "
rsAux.Open sql, cn, adOpenDynamic, adLockPessimistic
Report.SQLQueryString = sql
Report.RecordSelectionFormula = "{compcompra.nrocomp} = '" & FrmCompra.TxtNumComp & "'"
CRViewer1.ReportSource = Report
'CRViewer1.Refresh
CRViewer1.ViewReport


el unico problema que tengo ahora es q el primer registro que muestra esta bien, pero si cargo nuevos datos y le pido que los muestre me trae el reporte con los campos en blanco.
Ahh CRViewer1.Refresh me da error
Alguna Idea