عرض تقرير

يمكن حل لي هذه المشكلة

حيث تظهر رسالة ان لم يستطيع عرض التقرير

برجاء تجربة الكود لانه ليس به اخطاء

فيه حاجة مش عارف اوصل اليها

شمرا

If Conn.State = ConnectionState.Open Then Conn.Close()

ds.Clear()

da = New OleDb.OleDbDataAdapter(str_select, Conn)

da.Fill(ds, "table1")

Dim rds As New ReportDataSource

rds.Name = "ds_table1"

rds.Value = ds.Tables(0)

Dim RepView As New Microsoft.Reporting.WinForms.ReportViewer

RepView.LocalReport.DataSources.Add(rds)

'RepView.LocalReport.ReportEmbeddedResource = "WindowsApplication.Report1.rdlc"

RepView.LocalReport.ReportEmbeddedResource = Application.StartupPath & "\report2.rdlc"

RepView.RefreshReport()

RepView.Dock = DockStyle.Fill

Dim Frm As New Form

Frm.WindowState = FormWindowState.Maximized

Frm.Controls.Add(RepView)

Frm.Show()