[مصمم هاوي]

نجحتُ في اتستدعاء الدرجات من الجداول الخمس حسب الترتيب المطلوب

كود :

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