Jump to content

Recommended Posts

Posted

Tenho uma base de dados onde eu guardo os dados do funcionários.

Criei um relatório que irá conter a foto desse funcionário que fica na mesma pasta da base de dados.

No arquivo rdlc, eu inseri um parâmetro do tipo texto e inseri um controle Imagem como EXTERNAL

e setado com o parâmetro que criei.

No form, tenho esse código


Dim rptDataSource As ReportDataSource = Nothing

Me.ReportViewer1.RefreshReport()
With Me.ReportViewer1.LocalReport
        Dim rptStream As IO.Stream = GetReport(strReport & ".rdlc")
        .LoadReportDefinition(rptStream)
        .EnableExternalImages = True
        ' Define os parameters 
        Dim parameters(0) As ReportParameter
        parameters(0) = New ReportParameter("pImage", strImagem)
        .SetParameters(parameters)
        .DataSources.Clear()
End With
Me.ReportViewer1.RefreshReport()
rptDataSource = New ReportDataSource("FichaRegistro", RsDataSet.Tables(0))


Só que não está carregando a imagem, alguém pode me ajudar ?

Posted

Problema resolvido



                       Dim rptStream As IO.Stream = GetReport(strReport & ".rdlc")
                       .EnableExternalImages = True
                       .LoadReportDefinition(rptStream)
                       If My.Computer.FileSystem.FileExists(strImagem) Then
                           strImagem = "file://" & strImagem
                       Else
                           strImagem = ""
                       End If
                       ' Define os parameters 
                       Dim parameters(0) As ReportParameter
                       parameters(0) = New ReportParameter("pImage", strImagem)
                       .SetParameters(parameters)
                       .DataSources.Clear()

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
×
×
  • Create New...

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.