15-05-20, 12:46 AM
اخواني السلام عليكم وتقبل الله منا ومنكم صالح الاعمال
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
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
