Como chamar um SubReport dentro do Cristal

Question

Boa Tarde...

Eu estou tentando chamar o subreport mas não estou conseguindo,

quando eu estou no modo de edição do relatório ele funciona, porem quando eu tendo usar pelo código não funciona

oque eu estou fazendo de errado, 

Dim da As OracleDataAdapter

        Dim dt_Report, dt_SubReport As DataTable

        Dim rpt As New ReportDocument

        Dim Rpt_Conn As New CrystalDecisions.Shared.ConnectionInfo

        Dim Rpt_LogOnInfo As New TableLogOnInfo

        Dim Rpt_LogOnInfos As New TableLogOnInfos

        Dim Rpt_Table As Table

        Dim Rpt_tables As Tables

        Dim Caminho As String

        With Rpt_Conn

            .DatabaseName = "aaa"

            .UserID = "bbb"

            .Password = "ccc"

        End With

        Caminho = Application.StartupPath

        Caminho = Replace(Caminho, "\bin\Debug", "")

        Caminho = Replace(Caminho, "\bin\Release", "")

        rpt.Load(Caminho & relatorio)

        Rpt_tables = rpt.Database.Tables

        For Each Rpt_Table In Rpt_tables

            Rpt_LogOnInfo = Rpt_Table.LogOnInfo

            Rpt_LogOnInfo.ConnectionInfo = Rpt_Conn

            Rpt_Table.ApplyLogOnInfo(Rpt_LogOnInfo)

        Next

        rpt.OpenSubreport(0)

        Rpt_tables = rpt.Subreports(0).Database.Tables

        For Each Rpt_Table In Rpt_tables

            Rpt_LogOnInfo = Rpt_Table.LogOnInfo

            Rpt_LogOnInfo.ConnectionInfo = Rpt_Conn

            Rpt_Table.ApplyLogOnInfo(Rpt_LogOnInfo)

        Next

        da = New OracleDataAdapter(Sql_SubRel, conn)

        dt_SubReport = New DataTable

        da.Fill(dt_SubReport)

        da = New OracleDataAdapter(Sql_Rel, conn)

        dt_Report = New DataTable

        da.Fill(dt_Report)

        rpt.SetDataSource(dt_Report)

        rpt.Subreports(0).SetDataSource(dt_SubReport)

        OndeSalvar = Replace(OndeSalvar, "/", "-")

        rpt.ExportToDisk(ExportFormatType.PortableDocFormat, OndeSalvar)

        rpt.Close()

Grato Pela Ajuda

Jonatas Marques

Answer 1

Olá Jonatas

Dê uma olhada nesse post do Laércio Freitas.

http://social.msdn.microsoft.com/forums/pt-BR/vsreportingpt/thread/488e735f-0ecd-4ba3-ab36-ab75b1e91941/

"Marque como certa se a resposta for útil"

Att.,

Jeimes Ribeiro

Answer 2

Muito Obrigado Jeimes mas eu ainda continuo não conseguindo.... fazendo como o exemplo acima diz que não criei o objeto, mesmo estando criado

Grato Jonatas Marques

Answer 3

Jonatas, 

Declare uma variavel com do tipo do SubRelatorio

---

Se esta sugestão for útil, por favor, classifique-a como útil. Se ela lhe ajudar a resolver o problema, por favor, marque-a como Resposta.

Answer 4

Olá Jonatas,

Encaminhei sua questão para o fórum de Crystal Reports.

Att,

---

Heloisa Pires | LATAM Forum Support Engineer | Microsoft Corporation