none
DataGridView Desactivar casilla Checkbox RRS feed

  • Pregunta

  • Buenos días!

    Tengo una columna Checkbox en el DataGridView, que cuando la seleccionan se muestra un Inputbox para recoger una información adicional.

    Si cancelan el Inputbox se debe deshabilitar la casilla check pero no me funciona. Les muestro el código:

        Private Sub dgvSeñ_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSeñ.CellContentClick
            Try
                If e.ColumnIndex = 0 Then
                    Dim value As Boolean = CType(dgvSeñ.CurrentCell.EditedFormattedValue, Boolean)
                    If value = True Then
                        If Not String.IsNullOrEmpty((dgvSeñ.CurrentRow.Cells("INSCRIPCIÓN").Value).ToString) Then
                            If ((dgvSeñ.CurrentRow.Cells("Tipo_Insc").Value).ToString) = "SiNo" Then
                                Dim Result As DialogResult =
                                    MsgBox((dgvSeñ.CurrentRow.Cells("INSCRIPCIÓN").Value).ToString, MsgBoxStyle.YesNo)
                                If Result = DialogResult.Yes Then
                                    dgvSeñ.CurrentRow.Cells("OP").Value = dgvSeñ.CurrentRow.Cells("RespSi").Value
                                Else
                                    dgvSeñ.CurrentRow.Cells("OP").Value = dgvSeñ.CurrentRow.Cells("RespNo").Value
                                End If
                            ElseIf ((dgvSeñ.CurrentRow.Cells("Tipo_Insc").Value).ToString) = "Texto" Then
                                Dim miValor As String = InputBox((dgvSeñ.CurrentRow.Cells("INSCRIPCIÓN").Value).ToString)
                                If String.IsNullOrEmpty(miValor) Then

                                    'Esto no funciona--------------------------------------------------------------------
                                    dgvSeñ.CurrentCell.Value = False

                                Else
                                    dgvSeñ.CurrentRow.Cells("OP").Value = miValor
                                End If
                            End If
                        End If
                    End If
                End If
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End Sub

    Gracias por vuestra atención.

    domingo, 22 de marzo de 2020 9:55

Todas las respuestas

  • Hola

     

    Gracias por levantar tu consulta en los foros de MSDN. Estamos analizando su pregunta y vamos a darle seguimiento para buscar la mejor repuesta pertinente al caso.

     

    Gracias por usar los foros de MSDN.

     


    Oscar Navarro

     ____

     

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

     

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

     

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    lunes, 23 de marzo de 2020 14:28
    Moderador