终于找到问题的所在
ReportViewer1.LocalReport.EnableExternalImages = True
Dim params(1) As ReportParameter
params(0) = New ReportParameter("Report_Parameter_0", "file:///c:/qq.jpg")‘关键在此,路径表示形式
params(1) = New ReportParameter("Report_Parameter_1", "aa")
Me.ReportViewer1.LocalReport.SetParameters(params)
Me.ReportViewer1.RefreshReport()