(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()
لكم جزيل الشكر
دمتم بود