samesdavis Posted March 6, 2013 at 01:54 AM Report #498074 Posted March 6, 2013 at 01:54 AM 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 ?
samesdavis Posted March 6, 2013 at 02:30 AM Author Report #498076 Posted March 6, 2013 at 02:30 AM 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()
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now