منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] تقرير فرعي - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] تقرير فرعي (/showthread.php?tid=34808)

تقرير فرعي - tahaayyoub - 16-05-20

اخواني السلام عليكم وتقبل الله منا ومنكم صالح الاعمال

1-قمت بعمل تقرير فرعي منفصل عن التقرير الرئيسي وفي التقرير الرئيسي قمت بعمل استدعاء للتقرير الفرعي
المشكل ااني عند اظهار التقرير الريئسي يظهر كلا التقريرين منفصلين في نافذين مستقلتين
اريد لن استدعى التقرير الفرعي في نفس نافذة التقرير الفرعي
كيف اقوم بذلك؟
2- اريد ان اظهر بيانات  datatable المرتبط بالتقرير الفرعي حسب شرط معين مثلا ربطه  combobox 

وهذا الكود سورس

  Private Sub SubreportCompta()
        con.Close()
        Connect()
        con.Open()
        Dim da As SqlDataAdapter
        Dim dt As New DataTable
        da = New SqlDataAdapter("SELECT Indemnite.Indemnite1, Indemnite.n_personne1, Indemnite.date_debut1, Indemnite.date_fin1, Indemnite.montant_dette1 FROM  Indemnite INNER JOIN affaires ON Indemnite.id_aff = affaires.id_aff where indemnite.id_aff='" & ComboBox.Text & "'", con)
        dt.Clear()
        da.Fill(dt)
        Dim Cr As New ReportSubc
        CType(Cr.Section3.ReportObjects("text6"), CrystalDecisions.CrystalReports.Engine.TextObject).Text = Format(M2, "0.00")
        Cr.SetDataSource(dt)
        FormPrint.CrystalReportViewer1.ReportSource = Cr     '  نفس طريقة استدعاء التقرير الرئيسي
        FormPrint.Show()
        da.Dispose()
        con.Close()
    End Sub

RE: تقرير فرعي - khodor1985 - 16-05-20

السلام عليكم أخي العزيز ورحمة الله وبركاته

تابع هذا الفيديو للأستاذ أحمد النجار





RE: تقرير فرعي - tahaayyoub - 16-05-20

(16-05-20, 09:48 PM)khodor1985 كتب : السلام عليكم أخي العزيز ورحمة الله وبركاته

تابع هذا الفيديو للأستاذ أحمد النجار




حفظك الله ورعاك، وتقبل الله صيامك وقيامك