Bom dia pessoal

 

Estou usando no evento Load de meu Form o seguinte:

 

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer91.ReportSource = Report
CrystalReport1.RecordSelectionFormula = "{Tabela.campo}='AUTOR'"
CRViewer91.ViewReport
Screen.MousePointer = vbDefault

End Sub

Só que quando executo o programa, aparecem todos os registros e não somente os que tem como conteúdo do campo a palavra AUTOR. Alguém poderia me ajudar?

 

T+

Rinaldo

Tente assim

 

CrystalReport1.RecordSelectionFormula = "{Tabela.campo}='AUTOR'"
CrystalReport1.DiscardSavedData

CRViewer91.ReportSource = Report
CRViewer91.ViewReport

 

t+

Fabio CR

Não entendi uma coisa... O que é Report no seu programa?

Você faz referência a ele na linha CRViewer91.ReportSource = REPORT, mas quando passa a fórmula, você usar CRYSTALREPORT1.RecordSelectionFormula = ...

Provavelmente o que está acontecendo é uma confusão de variáveis. Você provavelmente definiu Report assim:

 

Dim Report as New CrystalReport1

 

Quando se faz isso, você está criando uma nova instância de CrystalReport1 que não tem nada a ver como CrystalReport1 original, pois cada instância tem vida própria, apenas herda as características básicas da original. Assim a RecordSelectionFormula que você atribuiu a CrystalReport1 não tem qualquer efeito sobre Report1 que continua sem a SUA RecordSelectionFormula. Tente fazer assim:

 

Report.RecordSelectionFormula = "{Tabela.campo}='AUTOR'"
CRViewer91.ReportSource = Report
CRViewer91.ViewReport
Screen.MousePointer = vbDefault

 

Neste caso estou pressupondo que você definiu a variável da forma como eu indiquei. Se nada disso que eu falei for realmente o seu caso, mande outra mensagem, indicando como você definiu Report no seu programa.

 

Um abraço,

Sandro

Ai Pessoal obrigado pela ajuda. Com suas dicas consegui resolver o problema. Aproveitei e postei o código que crie para outros usuário que também tem dificuldades.

 

Valeuuu!!!

 

T+

Rinaldo