[princelovelorn]

السلام عليكم ورحمة الله وبركاته

جرب الدالتين التاليتين

كود :

   Private Sub FillStudent()
       Try

           'هنا متغير لحمل القيمة التي ستحدد أثناء النقر على البيان المختار من اللست بوكس
           Dim arrListQuery As New ArrayList

           'هنا حلقة فور نكست لتحدد القيم المختارة من اللست بوكس
           'لا ينبغي عليك استخدام فهرس القائمة عند اختيار القيمة
           'Value ... SelectedIndices(i)

           For i As Integer = 0 To Me.listClas.Items.Count - 1

               If Me.listClas.GetSelected(i) Then
                   'هنا متغير لتعبئة القيمة أثناء النقر على أحد قيم اللست بوكس
                   'لتحديد قيمة الصف المختار من قاعدة البيانات والمعبأ في اللست بوكس
                   arrListQuery.Add( _
                       "SELECT TBL_Student.IDStudent, TBL_Student.NameStudent, TBL_Student.IDClas, TBL_Student.SETNO1, TBL_Student.SETNO2 " & _
                       ", TBL_Final1.IDSemester as [رقم الأختبار]" & _
                       ", TBL_Final1.ON" & CombCourses.SelectedIndex + 1 & " as أعمــال " & _
                       ", TBL_Final1.TO" & CombCourses.SelectedIndex + 1 & " as امتحـان " & _
                       ", TBL_Final1.TR" & CombCourses.SelectedIndex + 1 & " as المجموع " & _
                       "FROM TBL_Final1 RIGHT JOIN TBL_Student ON TBL_Final1.IDStudent=TBL_Student.IDStudent " & _
                       "Where TBL_Final1.IDClas=" & CInt(i + 1).ToString() & " and TBL_Final1.IDSemester=" & CombSemester.SelectedIndex + 1)
                   '" & CombSemester.SelectedIndex + 1)
                   ' & CInt(i + 1).ToString())

               End If

           Next

           '==========================

           'تحديد متغير لتعبئة مجموعة البيانات من الاستعلام
           Dim da As OleDb.OleDbDataAdapter

           da = New OleDbDataAdapter(Nothing, Con)
           'هنا تحديد متغير داتا سيت لتخزين البيانات
           Dim ds As New DataSet

           For i As Integer = 0 To arrListQuery.Count - 1

               If Not IsNothing(arrListQuery(i)) Then

                   'Assign the query string.
                   da.SelectCommand.CommandText = arrListQuery(i).ToString

                   'تعبئة مخزن البيانات من الاستعلام المحدد
                   da.Fill(ds, "Student")

               End If
           Next

           DataGridView1.DataSource = ds.Tables("Student")

           'تحديد بيانات الداتا قريد التي ستعبأ

           FillLoadStudent()
           'Destroy object.
           'arrListQuery = Nothing

       Catch ex As Exception
           ' MessageBox.Show(ex.Message)
       End Try

   End Sub

   Private Sub FillLoadStudent()
       ' تغيير أسماء الأعمدة باللغة العربية
       Me.DataGridView1.Columns(0).HeaderText = "رقم الطالـب"
       Me.DataGridView1.Columns(1).HeaderText = "اســـــم الطالـــب"
       Me.DataGridView1.Columns(2).HeaderText = "الصــف"
       Me.DataGridView1.Columns(3).HeaderText = "رقم الجلوس"
       Me.DataGridView1.Columns(4).HeaderText = "رقم المراقبة"
       Me.DataGridView1.Columns(5).HeaderText = "رقم الأختبار"
       Me.DataGridView1.Columns(6).HeaderText = "أعمـال"
       Me.DataGridView1.Columns(7).HeaderText = "امتحـان"
       Me.DataGridView1.Columns(8).HeaderText = "المجمـوع"

       ' Me.DataGridView1.Columns(0).Visible = False
       Me.DataGridView1.Columns(1).Width = 240
       ' Me.DataGridView1.Columns(2).Visible = False
       ' Me.DataGridView1.Columns(3).Visible = False
       Me.DataGridView1.Columns(4).Width = 100
       Me.DataGridView1.Columns(5).Width = 100
       Me.DataGridView1.Columns(6).Width = 100
       Me.DataGridView1.Columns(7).Width = 100
       Me.DataGridView1.Columns(8).Width = 100
       'كود تغير الالوان لصفوف الداتا جريد
       DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
       DataGridView1.MultiSelect = False
       With Me.DataGridView1
           .RowsDefaultCellStyle.BackColor = Color.White
           .AlternatingRowsDefaultCellStyle.BackColor = Color.PowderBlue

           ' عدد السجلات
           LSUM.Text = " عـدد طلبــة الصــف : " & DataGridView1.Rows.Count & " "

       End With

   End Sub