none
Erro ao Enviar Parametros para o Crystal RRS feed

  • Pergunta

  • Bom dia,

    Estou tendo dificuldades ao enviar Parametros par ao Relatório

    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

    With Rpt_Conn
                    .DatabaseName = "sisepc"
                    .UserID = "sisplan_ebn"
                    .Password = "sisplan_ebn"
                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

                da = New OracleDataAdapter(Sql_Rel, conn)
                dt_Report = New DataTable
                da.Fill(dt_Report)

    rpt.SetDataSource(dt_Report)

    rpt.SetParameterValue("DESCRICAO_GERAL", "INFORMAÇOES")

     rpt.ExportToDisk(ExportFormatType.PortableDocFormat, OndeSalvar)

    AQUI ACONTECE O ERRO quando eu vou exportar ele me da a mensagem.

    "parameter missing a value"

    alguem pode me ajudar com este problema

    Grato Jonatas

    quinta-feira, 23 de maio de 2013 14:51