USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic    (Crystal Reports)

Título da Dica:  Vários relatórios em um crViewer
Postada em 25/8/2003 por Fabio CR            
Existe um recurso que muitos não sabem mas que pode ser bastante útil para quem utiliza o RDC do crystal, a visualização de diversos .rpt(s) em um mesmo viewer ao mesmo tempo ...

A idéia é navegar entre diversos .rpt(s) em uma tela única. Com isso vc consegue disponibilizar para o usuário uma poderosa ferramenta de análise.

E o código é simples, basta vc utilizar o ReportSourceRouter do crystal e adicionar os objetos Report que possue, deem uma olhada nesse exemplo

-----------------------------------
Dim crApp As New CRAXDRT.Application
Dim crRpt1 As New CRAXDRT.Report
Dim crRpt2 As New CRAXDRT.Report
Dim crRptRouter As New ReportSourceRouter

Private Sub Form_Load()
Set crRpt1 = crApp.OpenReport(App.Path & "\rpt\Relat01.rpt")
Set crRpt2 = crApp.OpenReport(App.Path & "\rpt\Relat02.rpt")

crRptRouter.AddReport crRpt1
crRptRouter.AddReport crRpt2

CRViewer.ReportSource = crRptRouter
CRViewer.ViewReport

End Sub
 


CyberWEB Network Ltda.    © Copyright 2000-2022   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página