Usuário com melhor resposta
Mudar Relatório no evento Load

Pergunta
-
Respostas
-
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.OleDbImports
System.Data'crystal reports
Imports
CrystalDecisions.CrystalReports.EngineImports
CrystalDecisions.Shared'outros
Imports
System.Text 'StringBuilderImports
System.Configuration 'ConnectionStringsImports
System.IO 'Path.CombineSub:
Code SnippetPrivate 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.CustomerDataTableoDA.Fill(oTable)
crReportDocument.SetDataSource(
CType(oTable, DataTable)) '3 passo: visualizando o relat¢rio...crPreview.DisplayGroupTree =
FalsecrPreview.ReportSource = crReportDocument
Catch ex As ExceptionMsgBox(ex.Message)
No evento Load do Form:
Code SnippetPrivate Sub wfmCrystalSQLServer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PreviewRelClientes()
End Sub
[ ]'s
Laércio.
-
Todas as Respostas
-
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.OleDbImports
System.Data'crystal reports
Imports
CrystalDecisions.CrystalReports.EngineImports
CrystalDecisions.Shared'outros
Imports
System.Text 'StringBuilderImports
System.Configuration 'ConnectionStringsImports
System.IO 'Path.CombineSub:
Code SnippetPrivate 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.CustomerDataTableoDA.Fill(oTable)
crReportDocument.SetDataSource(
CType(oTable, DataTable)) '3 passo: visualizando o relat¢rio...crPreview.DisplayGroupTree =
FalsecrPreview.ReportSource = crReportDocument
Catch ex As ExceptionMsgBox(ex.Message)
No evento Load do Form:
Code SnippetPrivate Sub wfmCrystalSQLServer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
PreviewRelClientes()
End Sub
[ ]'s
Laércio.
-