Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Wencesláu

Referência de objeto não definida

Recommended Posts

Wencesláu

Olá amigos,

Não consigo me entender com o CrystalReport. Uso a versão 13_0_5 no VB.Net 2012. Banco de dados Access 2007.

Depois de superar algumas dificuldades, agora, quando executo o código abaixo, vem a seguinte mensagem:

“Referência de objeto não definida para uma instância de um objeto.”

Imports System.Data.OleDb
Imports CrystalDecisions.CrystalReports.Engine

Dim Connect As New OleDbConnection
Connect.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;" _
           & "Data Source=BdDados.accdb;Jet OLEDB:System database=system.mdw;"
Connect.Open()
Dim ds As New DataSet
Dim SQL As String = "SELECT * from tbl12"
Dim da As New OleDbDataAdapter(SQL, Connect)
da.Fill(ds)
Dim cr As New rpt07 ‘Relatório
cr.SetDataSource(ds)
Dim pth As String = System.Windows.Forms.Application.StartupPath & "\rpt07.rpt"
cr.Load(pth)
Dim ObjetoTexto As CrystalDecisions.CrystalReports.Engine.TextObject
ObjetoTexto = CType(cr.ReportDefinition.ReportObjects.Item("txtTitulo"), CrystalDecisions.CrystalReports.Engine.TextObject)
ObjetoTexto.Text = “Relação geral”
Me.crvRelatorio.ReportSource = cr ‘CrystalReportViewer
Me.crvRelatorio.RefreshReport()
cr.Close()
cr.Dispose()
Connect.Close()

O CrystalReportViewer exibe todos os registros, mas o erro aparece quando clico nos ShowPageNavigateButtons. Às vezes aparece, também, quando o Viewer é inicializado, mas ele exibe todos os registros, embora não possibilite a mudança de páginas.

Qual poderia ser o erro e qual seria a solução???

Edited by thoga31
Tags code + GeSHi

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.