2012-09-18 100 views
2

我有2個報表,「report1.rdlc」「report2.rdlc」。我希望能夠在單個報表查看器中對其進行交換(「rv_1」)。在單個報表查看器中切換多個報表(.rdlc)

我也有3個按鈕:
btn_1其作用:

rv_1.LocalReport.ReportEmbeddedResource = "Application1.Report1.rdlc" 
rv_1.RefreshReport() 

btn_2其作用:

rv_1.LocalReport.ReportEmbeddedResource = "Application1.Report2.rdlc" 
rv_1.RefreshReport() 

btn_3其作用:

dim rds as new ReportDataSource 
rds.name = 
rds.value = 
rv_1.reset() 
rv_1.LocalReport.DataSources.add(rds) 
rv_1.RefreshReport() 

不管是什麼,我把爲rds.namerds.value,它給我留下了

的數據源實例尚未爲數據源「dataSetName_TableName」提供。

我需要放在那裏才能使其正常工作?

+0

我知道你在VB工作。但這是屬於框架等領域的其中一個領域,而不是語言 - 並且區分大小寫。 – peterG

回答

0
Private Sub REPORT1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    If CON.State = ConnectionState.Closed Then : 
    CON.Open() : 
    End If 
    CMD.Connection = CON 
    CMD.CommandText = "SELECT * FROM accounts" 
    DR = CMD.ExecuteReader 
    If DR.HasRows Then 
    Do While (DR.Read) 
    Me.DataSet1.TblData.AddTblDataRow(DR("FNAME"), DR("LNAME"), DR("MI")) 
    Loop 
End If Me.ReportViewer1.LocalReport.ReportPath = "Report1.rdlc" 
Me.ReportViewer1.RefreshReport() 
End Sub 
+0

私人小組REPORT1_Load(BYVAL發件人爲System.Object的,BYVALË作爲System.EventArgs)把手MyBase.Load 如果CON.State = ConnectionState.Closed然後:CON.Open():結束如果 CMD.Connection = CON CMD.CommandText = 「SELECT * FROM帳戶」 DR = CMD.ExecuteReader 如果DR.HasRows然後 做,當(DR.Read) Me.DataSet1.TblData.AddTblDataRow(DR( 「FNAME」),DR (「LNAME」),DR(「MI」)) Loop End If Me.ReportViewer1.LocalReport.ReportPath =「Report1.rdl c「 Me.ReportViewer1.RefreshReport() End Sub – ZYVEN

+0

請用上面的代碼編輯您的答案,而不是添加評論。 –

相關問題