[ahmedhhh2]

تم تحميل المثال اخي والطباعه شغاله تمام بس عرض البيانات يتم عرضها عن طريق كتابة جملة في textbox والضغط علي طباعة يتم تحويلك الي صفة بها ReportViewer2
يتم الضغط علي امر الطباعة يتم الطباعه

وهذا المثال الواحد الذي وجدت يعمل علي ريبورت معي واحاول التعديل عليه واضافة فاتورة من بيانات موجوده في قاعدة البيانات تظهر لي هذه الرسالة
a data source instance has not been supplid for the data source 'dataset1'

الكود المستخدم




Imports Microsoft.Reporting.WinForms
Imports System.Data.OleDb
Public Class Form2


Private Sub ViewReport_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

ReportViewer2.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local



Me.ReportViewer2.RefreshReport()
End Sub

Private Sub ReportViewer2_Load(sender As Object, e As EventArgs) Handles ReportViewer2.Load

' Dim cnn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\db21alx22889129111177.mdb;user id=admin;jet oledb:database password=0120147")


' ReportViewer2.LocalReport.DataSources.Clear()

' B_SelectQuery = "select * from cb where idcb=14 "
ReportViewer2.ProcessingMode = Microsoft.Reporting.WinForms.ProcessingMode.Local
' conn = New OleDbConnection
Dim params1 = New ReportParameter("Parameter1", Form1.TextBox1.Text)

Dim conn As New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=" & Application.StartupPath & "\db21alx22889129111177.mdb;user id=admin;jet oledb:database password=********")
' Dim dataset1 As New DataSet

'dta = New OleDbDataAdapter("Select * From [Sheet1$]", conn)
conn.Open()
Dim adpt As New OleDbDataAdapter("select * from cb ", conn)
Dim rs As New DataTable
adpt.Fill(rs)
Dim ds As DataSet = New DataSet("DataSetOne")
ds.Tables.Add(rs)
Dim datasource As New ReportDataSource("cb", ds.Tables(0))

Me.ReportViewer2.SetDisplayMode(Microsoft.Reporting.WinForms.DisplayMode.PrintLayout)
ReportViewer2.LocalReport.DataSources.Clear()
ReportViewer2.LocalReport.SetParameters(params1)

ReportViewer2.LocalReport.DataSources.Add(datasource)
ReportViewer2.LocalReport.Refresh()

End Sub
End Class