[مصمم هاوي]

بعد محاولات فاشلة هل يمكن لأحد الأساتذة المساعدة في تعديل كود الاستعلام وعرض البيانات في الداتا قريدفيو
اسم جدول الطلبة = TBL_Student
اسم جدول الفصول =  TBL_Semester
اسم جدول الدرجات = TBL_Final1
اسم جدول المواد الدراسية= TBL_SClas

لأنني أريد رصد الدرجات بالمادة فقط بحيث يتم إختيار مادة من الكومبوكس عرضها في الداتا قريدفيو + إختيار الفصل الدراسي
الرجاء إخواني الكرام المساعدة ...

كود :

             "Select TBL_Student.IDStudent as الرقم" & _
             ",TBL_Student.Name_Student as [اســم الطالـــب]" & _
             ",TBL_Student.Clas as [الصـف]" & _
             ",TBL_Student.SETNO1 as [رقم الجلوس]" & _
             ",TBL_Student.SETNO2 as [رقم المراقبة]" & _
             ",TBL_Final1.Semester as الفصل" & _
             ",TBL_Final1.ON" & CombSClas.SelectedIndex + 1 & " as أعمـــال " & _
             ",TBL_Final1.TO" & CombSClas.SelectedIndex + 1 & " as امتحــان " & _
             ",TBL_Final1.TR" & CombSClas.SelectedIndex + 1 & " as المجموع " & _
             "From (Select IDStudent,Semester,on" & CombSClas.SelectedIndex + 1 & ",to" & CombSClas.SelectedIndex + 1 & ",tr" & CombSClas.SelectedIndex + 1 & " From TBL_Final1 Where Semester=" & Trim$(CombSemester.Text) & ") as TBL_Final1 " & _
             "right join TBL_Student " & _
             "on TBL_Final1.IDStudent = TBL_Student.IDStudent " & _
             "Where TBL_Student.Clas= '" & listClas.Text & CInt(i + 1).ToString)