none
Mudar Relatório no evento Load RRS feed

  • Pergunta

  •  

    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

    quarta-feira, 15 de outubro de 2008 23:44

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

    quinta-feira, 16 de outubro de 2008 13:25
    Moderador
  • OK  Valeu Laércio,

    grato,

     

    Edmilson

    domingo, 19 de outubro de 2008 16:59

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

    quinta-feira, 16 de outubro de 2008 13:25
    Moderador
  • OK  Valeu Laércio,

    grato,

     

    Edmilson

    domingo, 19 de outubro de 2008 16:59