[مصمم هاوي]

للرفــع
بصراحــــة عجزتُ عن معرفــة سبب الخطأ في هذا الكود
للعلم جربتُ جميـع المحاولات ولكن دون فائدة

كود :

  'Try
       ' هرض درجـات المواد في الداتا قريدفيو
       If Con.State = ConnectionState.Closed Then Con.Open()
       Dim dt As DataTable
       Using da = New OleDbDataAdapter("Select TBL_Student.IDStudent as رقم" & _
                                       ",TBL_Student.alqayd as [رقم القيد ]" & _
                                       ",TBL_Student.NameStudent as [اســـم الطالـــب ]" & _
                                       ",TBL_Student.IDClas as الصــف" & _
                                       "From TBL_Student " & _
                                       "where TBL_Student.IDClas=" & Val(listClas.SelectedItem.ToString()), Con)

           dt = New DataTable
           da.Fill(dt)
           DataGridView1.DataSource = dt
       End Using

       If Not String.IsNullOrEmpty(CombSemester.Text) AndAlso IsNumeric(CombSemester.Text) Then
           Using daCheck = New OleDbDataAdapter("Select IDStudent From TBL_Final1 where IDSemester=" & Val(CombSemester.Text), Con)
               Dim dtCheck As New DataTable
               daCheck.Fill(dtCheck)
               If dtCheck.Rows.Count > 0 Then
                   Using da2 = New OleDbDataAdapter("Select S.IDStudent, S.alqayd, S.NameStudent, S.IDClas, F.IDSemester, F.ON" & CombCourses.SelectedIndex + 1 & " as اعمال " & _
                                                   "From TBL_Final1 F right join TBL_Student S on F.IDStudent = S.IDStudent " & _
                                                   "where F.IDSemester=" & Val(CombSemester.Text) & " and S.IDClas=" & Val(listClas.SelectedItem.ToString()), Con)
                       Dim dt2 As New DataTable
                       da2.Fill(dt2)
                       DataGridView1.DataSource = dt2
                   End Using
               End If
           End Using
       End If

       FillDataGridView()

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

صــورة الخطأ في المرفقات ... يا أساتذة أرجــــــــــــو الاهتمام

[attachment=30058]