FILTRAR CRYSTAL REPORTS 9

ALANTB 26/04/2016 13:10:05
#461417

Olá, tenho uma sub que abre um relatório (vb6/access/cr9) logo após a gravação de dados na tabela (tbLista). Se deixar direto abre o relatório (na verdade são etiquetas que pretendo imprimir em impressora matricial estilo LX-300) e exibe TODOS os dados normalmente. Mas à partir do momento que coloco para filtrar pelo txt (txtRegistro) abre a tela de visualização do relatório mas sem dados, vazia. Essa rotina está numa sub em um form de cadastro (frmCadLista) e o controle do crystal 9 esta no frmVisualização. O relatório de etiquetas não está internamente no vb6, foi feito direto no crystal 9 e está solto na pasta dos formulários, banco, etc .Segue o código:

Option Explicit
Dim vInclusao As Boolean
Dim vEspera As Boolean
Dim RelApli As New CRAXDRT.Application
Dim RelRep As New CRAXDRT.Report

[ô]no form frmCadLista
Sub ImprimeEtiqueta()

[ô]txtRegistro.Enabled = True
Set RelRep = RelApli.OpenReport(App.Path & [Ô]\cretiqueta9.rpt[Ô])
RelRep.RecordSelectionFormula = [Ô]{ConsultaLista.codLista} = [Ô] & Val(txtRegistro.Text) [ô] SE COLOCO ESSA LINHA NÃO CARREGA DADOS. SEM ELA PUXA TODOS.
frmVisualizar.CRViewer91.ReportSource = RelRep
frmVisualizar.CRViewer91.ViewReport
frmVisualizar.Show
End Sub

Alan