+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كود عمل sub report في الكريستال ريبورت (/showthread.php?tid=39291)
كود عمل sub report في الكريستال ريبورت - جيولوجي مبتدئ - 13-08-21
السلام عليكم ورحمة الله وبركاته
إخواني ماهو الكود المستخدم لعمل sub report في الكريستال ريبورت علما أنني عملت الداتاسيت وبها الداتا تسبب والتقرير جاهز ولكن يتبقى الكود فقط
لكم جزيل الشكر
دمتم بود
RE: كود عمل sub report في الكريستال ريبورت - جيولوجي مبتدئ - 13-08-21
(13-08-21, 09:10 AM)جيولوجي مبتدئ كتب : السلام عليكم ورحمة الله وبركاته
إخواني ماهو الكود المستخدم لعمل sub report في الكريستال ريبورت علما أنني عملت الداتاسيت وبها الداتا تسبب والتقرير جاهز ولكن يتبقى الكود فقط
لكم جزيل الشكر
دمتم بود
الحمد لله وجدت الحل ولفائدة الجميع هذا الكود
وهذا هو الكود الذي يتم به عرض أكثر من جدول بالتقرير
السطر الملون بالأخضر إذا كنت تريد إدراج باراميتر
Dim cr8 As New CrystalReport46
Dim QueryString As String
QueryString = "select * from Entezar1"
Dim Adapter As SqlDataAdapter = New SqlDataAdapter(QueryString, Sqlcon)
Dim ds As DataSet = New DataSet()
Adapter.Fill(ds, "DataTable2")
QueryString = "Select * from Entezar2"
Adapter = New SqlDataAdapter(QueryString, Sqlcon)
Adapter.Fill(ds, "DataTable3")
QueryString = "Select * from Entezar3"
Adapter = New SqlDataAdapter(QueryString, Sqlcon)
Adapter.Fill(ds, "DataTable4")
cr8.SetDataSource(ds)
'rpt.SetParameterValue("CompName", "Comp")
Dim r8 As New Form39
r8.CrystalReportViewer1.Zoom(300%)
r8.CrystalReportViewer1.ReportSource = cr8
r8.ShowDialog()
لكم جزيل الشكر
دمتم بود