+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كرستال ريبورت ملئ التقرير (/showthread.php?tid=21953)
كرستال ريبورت ملئ التقرير - طـلال - 01-10-17
السـلا عليكم روحمة الله وبركاته
كيف يمكنني تعبأة تقرير من جدولين
عملت 2 داتا تايب وأستخدمت جملة السليكلت بدلاله المفتاح الرئيسي من الجدول الأول وعبأة الداتا تايب الأولى
ومن ثم أستعلمت من الجدول الثاني وعبأة الداتا تايب الثانيه ولكن للأسف ما تتطلع نتيجه
أغلب الأحيان يعطيني خطأ
محتاج مساعدتكم في أفضل طريقه أستدعاء بحيث أن البرنامج ما يعطيني خطأ
كود :
Dim da As New SqlClient.SqlDataAdapter("SELECT * FROM [wsfty] WHERE [CODE]=@CODE", CON)
Dim tbl As DataTable : tbl.Clear()
da.Fill(tbl)
Dim rpt As New CLANA1
rpt.SetDataSource(tbl)
Form2.CrystalReportViewer1.Refresh()
Form2.CrystalReportViewer1.ReportSource = rpt
Dim da2 As New SqlClient.SqlDataAdapter("SELECT * FROM [tbl_emp] WHERE [empid]=@empi1", CON)
Dim tb2 As DataTable : tb2.Clear()
da.Fill(tbl)
Dim rpt2 As CLANA1
rpt.SetDataSource(tb2)
Form2.CrystalReportViewer1.Refresh()
Form2.CrystalReportViewer1.ReportSource = rpt2
Form2.Show()