|
|
|
|
|
|
|
|
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
|
|
|
|
|
