أريد أن أعرف ما هو الخطأ لكي لا يعرض لي البيانات في التقرير

عليكم السلام

شاهد المرفق

choose.rar

أخي الكريم

انا قمت باسناد التقرير له ..أنظر الكود التالي

Try
			courseTableAdapter.Fill(Me.courseDataTable)
			Me.BindingSourceCourse.DataSource = Me.courseDataTable

			If courseDataTable.Rows.Count > 0 Then
				Dim rpt As New CrystalReport1
				rpt.SetDataSource(BindingSourceCourse)
				CrystalReportViewer1.Zoom(65%)
				CrystalReportViewer1.ReportSource = rpt
				CrystalReportViewer1.RefreshReport()
				CrystalReportViewer1.Zoom(65%)

			End If
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try

السلام عليكم ..

------------

أخي الكريم المشكلة التي عندك تقنية (برمجية )بحتة وهي خاصة بحالة الوصول إلى البيانات (فعلا أنه لا يوجد جدول ولكن الجدول محمل ) ..

أنظر إلى مثالك ..وقد قمت بالتعديل عليه ...

وبالنسبة لما عرضته انت فهو كالتالي

أولا علينا أن نشئ نسخة من DataSet الموجودة في data source

وهي كالتالي

Private dbDataSet As New dbDataSet

وفي حدث تحميل النموذج Form Load نضع التالي

Try
			courseTableAdapter.Fill(Me.dbDataSet.course)
			Me.BindingSourceCourse.DataSource = Me.dbDataSet.course

			If dbDataSet.Tables("course").Rows.Count > 0 Then
				Dim rpt As New CrystalReport2
				rpt.SetDataSource(dbDataSet)
				CrystalReportViewer1.Zoom(65%)
				CrystalReportViewer1.ReportSource = rpt
				CrystalReportViewer1.RefreshReport()
				CrystalReportViewer1.Zoom(65%)

			End If
		Catch ex As Exception
			MessageBox.Show(ex.Message)
		End Try

أرجو أن تلاحظ الفرق ...

واي خدمة انا موجود

والسلام خير ختام

report.zip