Mudar Relatório no evento Load

Question

 

Pessoal,  estou montando alguns relatórios  com datasets  Tipados  (Usando  o wizard, logico),  montei 3  e gostaria de alterna-los  no viwer  no evento  load, é possivel?

 

Ed

Answer 1

 

Edmilson,

 

Se vc fez a construção do relatório utilizando o Wizard, basta criar uma sub para carregar o relatório utilizando o próprio DataSet criado para fazer o designer do relatório.

 

Um exemplo completo em VB.NET (Com banco de dados Access + Crystal Reports)

 

Referêncis do Form:

Code Snippet

 

'provider do banco de dados ACCESS

Imports System.Data.OleDb

Imports System.Data

'crystal reports

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

'outros

Imports System.Text 'StringBuilder

Imports System.Configuration 'ConnectionStrings

Imports System.IO 'Path.Combine

 

 

Sub:

Code Snippet

Private Sub PreviewRelClientes()

'

'visualizar o relat¢rio "rptCustomer.rpt" utilizando o pr¢prio dataset "dsCustomer"

'

Try

'1 passo: definindo o relat¢rio a ser visualizado (ReportPath)

Dim crReportDocument As New rptCustomer

'2 passo: definindo o DataSource do relat¢rio

Dim oDA As New dsCustomerTableAdapters.CustomerTableAdapter

Dim oTable As New dsCustomer.CustomerDataTable

oDA.Fill(oTable)

crReportDocument.SetDataSource(CType(oTable, DataTable))

'3 passo: visualizando o relat¢rio...

crPreview.DisplayGroupTree = False

crPreview.ReportSource = crReportDocument

Catch ex As Exception

MsgBox(ex.Message)

 

End Try

End Sub

 

 

No evento Load do Form:

Code Snippet

Private Sub wfmCrystalSQLServer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

PreviewRelClientes()

End Sub

 

 

 

[ ]'s

 

Laércio.

Answer 2

OK  Valeu Laércio,

grato,

 

Edmilson