[jamalsinani]

كل الشكر والتقدير استاذ على هذه المساعدة
انار الله قبلك وزادك الله علما
" يبقى اني اذا احببت اضيف زر حفظ لكي اعمل حالات جديدة عند استدعاء الطالب للجدول الرئيسي
ماذا يضاف لهذا الكود - لان هذا الكود في زر الكومبوبوكس 3 الذي به الاسماء
اذا رغبت في عمل زر حفظ , فم هو الكود المناسب "

كود :

dt1 = New DataTable
        da = New OleDbDataAdapter("SELECT * FROM STU_action WHERE `id` = " & dt(0)(0), con)
        da.Fill(dt1)

        If Not dt1.Rows.Count > 0 Then
            MsgBox("لا يوجد اى انذارات على هذا الطلاب")
            Exit Sub
        Else
            'ComboBox3.Items.Add(dt1(0)(1))
            ComboBox3.Text = dt1(0)(1)

            CheckBox1.Checked = dt1(0)(2)
            CheckBox2.Checked = dt1(0)(3)
            CheckBox3.Checked = dt1(0)(4)
        End If
        load_data()
        DataGridView1.DataSource = dt1

    End Sub