[نسيم]

boudyonline
[quote pid='78513' dateline='1466687526']
أخي الفاضل :

ما هي فكرتك من البرنامج ؟؟؟
[/quote]

البرنامج هو قاعدة بيانات تحتوي على جدول به حقل لاسم الطالب  وحقل للمادة وحقل للدرجة وحقل للتقدير ويمكن تكرار اسم الطالب في اكثر من صف حيث لكل طالب اكثر من مادة وعند اختيار اسم الطالب يتم ملأ الكمبو بوكس بالمواد الخاصة بالطالب  وذلك من خلال حدث textbox1_textchanged 

 Dim com1 As New SqlCommand("select  distinct name from table1  where name = '" & TextBox1.Text & "'", con)
        Dim s1 As New DataSet
        Dim t1 As New SqlDataAdapter
        t1.SelectCommand = com1
        t1.Fill(s1, "table1  ")


 If s1.Tables(0).Rows.Count <> 0 Then
  ComboBox1.DataSource = s1.Tables("table1  ")
            ComboBox1.DisplayMember = "id_no"
            ComboBox1.ValueMember = "id_no"

وعند اختيار اي مادة من الكومبوبوكس تظهر الدرجة والتقدير في textboxs  مخصصة لهم 
وذلك من خلال الكود في حدث combobox1_selectedindexchanged
Dim com2 As New SqlCommand("select * from table1  where  id_no='" & ComboBox1.Text & "'  ", con)
        Dim s2 As New DataSet
        Dim t2 As New SqlDataAdapter
        t2.SelectCommand = com2
        t2.Fill(s2, "table1  ")
 If s2.Tables(0).Rows.Count <> 0 Then

            Try
                TextBox10.Text = s2.Tables("table1").Rows(0)(3)
                TextBox2.Text = s2.Tables("table1").Rows(0)(9)
                ComboBox2.Text = s2.Tables("table1").Rows(0)(5)

            Catch ex As Exception
            End Try
        End If
ولكن بمجرد تشغيل الكود وكتابة الاسم في ال textbox1 يظهر هذا الخطأ
conversion faild when converting the varchar value'system.data..dataRowView' to type int"