25-12-22, 02:54 AM
بعد محاولات فاشلة هل يمكن لأحد الأساتذة المساعدة في تعديل كود الاستعلام وعرض البيانات في الداتا قريدفيو
اسم جدول الطلبة = TBL_Student
اسم جدول الفصول = TBL_Semester
اسم جدول الدرجات = TBL_Final1
اسم جدول المواد الدراسية= TBL_SClas
لأنني أريد رصد الدرجات بالمادة فقط بحيث يتم إختيار مادة من الكومبوكس عرضها في الداتا قريدفيو + إختيار الفصل الدراسي
الرجاء إخواني الكرام المساعدة ...
اسم جدول الطلبة = 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)