Marcar un CheckBox de un DataGridView en VB.Net

[fiorella3247]

Iniciado por Dradi7

una pregunta yo probe tu codigo y me sale excelentemente en mi maquina solo una pregunta estas usando un evento a parte en el datagridview

Hola Dradi7 Gracias por probar mi codigo. y bueno si estoy usando otros eventos:

Código:

Private Sub DataGridCargarAlumno_CellContentClick(...) Handles DataGridCargarAlumno.CellContentClick

        ' Ojo este codigo debe ir para que te funcione al hacer click en el checkbox de la grilla
        If e.RowIndex < 0 Or Not e.ColumnIndex = 0 Then Exit Sub
        If Convert.ToBoolean(DataGridCargarAlumno.Rows(e.RowIndex).Cells(0).Value) Then
            DataGridCargarAlumno.Rows(e.RowIndex).Cells(0).Value = False
        Else
            DataGridCargarAlumno.Rows(e.RowIndex).Cells(0).Value = True
        End If
        ' el problema consiste en que si no pongo este codigo al hacer click en un checkbox de la grilla este no cambiara a true 
        'hasta que otro checkbox sea clickeado o se haga click en la celda de la grilla
    End Sub

Este fue él que me pasastes tú

Y a parte tengo un boton y este es el codigo del boton en su evento click:

Código:

Private Sub BtnGuarda_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGuarda.Click
       
        For Each Row As DataGridViewRow In DataGridCargarAlumno.Rows
            If Convert.ToBoolean(Row.Cells(0).Value) = True Then ' Si chekee una fila de la grilla
                Cont += 1 'se acumula la fila
                SQLAlumno = ("Update ALUMNO Set IdGrupo='" & Id & "' where CedAlumno='" & Convert.ToString(Row.Cells(1).Value) & "'")
                'update para modifica el idGrupo en la tabla alumno y asignarle en Id del nuevo grupo
                CmdAlumno.CommandText = SQLAlumno
                CmdAlumno.Connection = myConn
                'para ejecutar el SQLAlumno
                If CmdAlumno.ExecuteNonQuery() <> 0 Then 'evalua si el .ExecuteNonQuery se ejecuto
                    MsgBox("Los alumnos se cargaron satisfactoriamente")
                Else
                    MsgBox("Error en la carga de los Alumnos")
                End If
            End If
        Next
        '*************************************************************************************'
        'MODIFICA EN LA TABLA GRUPO LA CANTIDAD DE ALUMNOS CARGADOS DE ACUERDO AL ID DEL GRUPO
        SQLCantidad = "Update GRUPO Set CantAlumno='" & Cont & "'  where IdGrupo='" & Id & "' "
        'modificar la cantidad de alumnos de la tabla grupo
        CmdCantidad.CommandText = SQLCantidad
        CmdCantidad.Connection = myConn
        CmdCantidad.ExecuteNonQuery()
        'para ejecutar el SQLCantidad
        VentanaOpcionGrupo.LabelCantidad.Text = Cont 'Label para mostrar la cantidad de alumnos cargados
        Me.Close()
    End Sub

De resto... mas nada!!!

Saludos y Exito