+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : مشكلة في بيانات تقرير اكتيف ريبورت (/showthread.php?tid=40704)
مشكلة في بيانات تقرير اكتيف ريبورت - مصمم هاوي - 08-02-22
السلام عليكم ورحمة الله وبركاته
عندي 6 تقارير تم دمجها (SubReport) في تقرير واحد اسمه: (ActiveReport1)
والعرض منه إظهار درجات امتحانات الفصول الدراسية الستة؛ ولكن المشكلة تكمن في ان البيانات لاتظهر بشكل المطلوب
حيث المفروض أن كل صفحة تقريـــر يتم عرض درجات الفصول الست من الجداول الستة حسب الترتيب الآتي:
اسم الطالب/ .................. رقم القيد/ ............... القسم/ .............
الفصـل الأول - الفصـــل الثاني - الفصــــل الثالث
الفصل الرابع - الفصل الخامس - الفصل السادس
وهكذا ... فأريد التعديل على التقريــر حتى يتم عرض تقرير درجات كل طالب في الجداول الستة على حدة في صفحة واحدة حسب ماهو موضحُ فوق
ثم تقريـر الطالب الذي بعده في الصفة الثانية ..... إلخ
وهذا مثال صغير للمشكلة في المرفقــــات أرجـــــو الاهتمام بالموضــــوع والتعديل عليه
[attachment=27597]
RE: مشكلة في بيانات تقرير اكتيف ريبورت - مصمم هاوي - 09-02-22
عندما تفشل في عمل استعلام استعن باستعلامات اكسس فستجد الحل إن شاء الله تعالى
RE: مشكلة في بيانات تقرير اكتيف ريبورت - مصمم هاوي - 26-02-22
نجحتُ في اتستدعاء الدرجات من الجداول الخمس حسب الترتيب المطلوب
كود :
Report_grades.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
App.Path & "\Data.Base\Data_Base.mdb;Persist Security Info=False"
Report_grades.DataControl1.Source = "Select Q_1.Clas, Q_1.tr1, Q_1.tr2, Q_1.tr3, Q_1.tr4, Q_1.tr5, Q_1.tr6, Q_1.tr7, Q_1.TOTALL, Q_2.Clas, Q_2.tr1, Q_2.tr2, Q_2.tr3, Q_2.tr4, Q_2.tr5, Q_2.tr6, Q_2.tr7, Q_2.TOTALL, Q_3.Clas, Q_3.tr1, Q_3.tr2, Q_3.tr3, Q_3.tr4, Q_3.tr5, Q_3.tr6, Q_3.tr7, Q_3.TOTALL, Q_4.Clas, Q_4.tr1, Q_4.tr2, Q_4.tr3, Q_4.tr4, Q_4.tr5, Q_4.on7, Q_4.tr7, Q_4.TOTALL, Q_5.Clas, Q_5.tr1, Q_5.tr2, Q_5.tr3, Q_5.tr4, Q_5.tr5, Q_5.tr6, Q_5.tr7, Q_5.TOTALL, Q_6.ID, Q_6.Name_Student, Q_6.alqayd, Q_6.Clas, Q_6.CClas, Q_6.Category, Q_6.Semester, Q_6.on7, Q_6.to7, Q_6.tr1, Q_6.tr2, Q_6.tr3, Q_6.tr4, Q_6.tr5, Q_6.tr6, Q_6.tr7, Q_6.TOTALL, Q_6.FINALL FROM Q_6 INNER JOIN (Q_5 INNER JOIN (Q_4 INNER JOIN (Q_3 INNER JOIN (Q_2 INNER JOIN Q_1 ON Q_2.ID = Q_1.ID) ON Q_3.ID = Q_2.ID) ON Q_4.ID = Q_3.ID) ON Q_5.ID = Q_4.ID) ON Q_6.ID = Q_5.ID;"
Report_grades.Show: Report_grades.Visible = True: Report_grades.Show
Report_grades.Caption = " ßÔÜÜÝ ÇáÏÑÌÜÜÜÇÊ áØáÈÜÜÉ : " & " " & Form_Report.CombClass1.Text & " * ÇáÞÓÜÜÜã : " & Form_Report.CombClass1.Text
Report_grades.L1.Caption = Form_school.Text7.Text & Chr(13) & " ãÏíÑ ÅÏÇÑÉ ÇáÏÑÇÓÜÉ æÇáÇãÊÍÇäÇÊ "
Report_grades.L2.Caption = Form_school.Text4.Text & Chr(13) & " ãÏíÜÜÑ ÚÜÜÇã ÇáãÚåÜÜÜÏ "
Report_grades.Show: Report_grades.Visible = True: Report_grades.Show