[aftfm]

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

حاولت اعدل على كود الاخ الفاضل إبراهيم بارك الله فيه

لاضافة التعديل على الملاحظات وايضاً لم يتم التعديل الا في سجل واحد

   

كود :

 If Con.State = ConnectionState.Open Then Con.Close()
        Con.Open()
        For i As Integer = 0 To Dgv_Table.Rows.Count - 1
            If Dgv_Table.Rows(i).Cells("Column5").Value = True Then
                Dim Cmd As New OleDbCommand("Update tblDropping SET Notes=@Notes, Cv_State=@Cv_State Where ID=@ID", Con)
                Cmd.Parameters.Add(New OleDbParameter("@Notes", OleDbType.Char)).Value = Dgv_Table.Rows(i).Cells("Column1").Value.ToString
                Cmd.Parameters.Add(New OleDbParameter("@Cv_State", OleDbType.Boolean)).Value = False
                Cmd.Parameters.Add(New OleDbParameter("@ID", OleDbType.Integer)).Value = Dgv_Table.Rows(i).Cells("ID").Value
                Cmd.ExecuteNonQuery()

            End If
        Next
        Con.Close()
        MessageBox.Show("تم تعديل البيانات في الارشيف", "تعديل", MessageBoxButtons.OK, MessageBoxIcon.Information)
        SelectAll_Personal()