[جيولوجي مبتدئ]

السلام عليكم ورحمة الله وبركاته
إخواني ماهو الكود المستخدم لعمل sub report   في الكريستال ريبورت علما أنني عملت الداتاسيت وبها الداتا تسبب  والتقرير جاهز ولكن يتبقى الكود فقط 

لكم جزيل الشكر 
دمتم بود

[جيولوجي مبتدئ]

(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()

لكم جزيل الشكر 

دمتم بود