2015-05-12 4 views
0

Я создал 2 отчета billa4.rdlc и billa5.rdlc, и я хочу загрузить один из отчетов в Reportviewer в соответствии с выбором опции combobox пользователем. , пожалуйста, помогите мне в этом. ниже код загружает billa4.rdlcКак загрузить rdlc report runtime

Try 
     Dim P2 As New ReportParameter("pbillnum", billnoprint) 
     Me.DataTable1TableAdapter.Fill(Me.billdata.DataTable1, billnoprint) 
     Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter() {P2}) 
     Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout) 
     Me.ReportViewer1.ZoomMode = ZoomMode.FullPage 
     Me.ReportViewer1.RefreshReport() 

    Catch ex As Exception 
     MsgBox("error") 
    End Try 

ответ

0

Что вы пробовали? Не настраивайте источник отчета непосредственно из режима разработки, делайте это по коду.

Может быть что-то вроде этого:

if(combooption.SelectedValue = 0) Then 
     Dim P2 As New ReportParameter("pbillnum", billnoprint) 
     Me.DataTable1TableAdapter.Fill(Me.billdata.DataTable1, billnoprint) 
     Me.ReportViewer1.ViewReport("billa4.rdlc") 
     Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter() {P2}) 
     Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout) 
     Me.ReportViewer1.ZoomMode = ZoomMode.FullPage 
     Me.ReportViewer1.RefreshReport() 
else 
     Dim P2 As New ReportParameter("pbillnum", billnoprint) 
     Me.DataTable1TableAdapter.Fill(Me.billdata.DataTable1, billnoprint) 
     Me.ReportViewer1.ViewReport("billa5.rdlc") 
     Me.ReportViewer1.LocalReport.SetParameters(New ReportParameter() {P2}) 
     Me.ReportViewer1.SetDisplayMode(DisplayMode.PrintLayout) 
     Me.ReportViewer1.ZoomMode = ZoomMode.FullPage 
     Me.ReportViewer1.RefreshReport() 
End if 
+0

Dim P2 Как Новый ReportParameter ("pbillnum", billnoprint) Me.DataTable1TableAdapter.Fill (Me.billdata.DataTable1, billnoprint) Me.ReportViewer2.LocalReport.ReportPath ("Bill.rdlc") Me.ReportViewer2.LocalReport.SetParameters (New ReportParameter() {P2}) Me.ReportViewer2.SetDisplayMode (DisplayMode.PrintLayout) Me.ReportViewer2.ZoomMode = ZoomMode.FullPage Me.ReportViewer2 .RefreshReport() Я попробовал thi bu Не работает –

Смежные вопросы