none
Select Case solo me hace el primero RRS feed

  • Pregunta

  • Buenas, tengo este select case pero solo me hace el primer case por que puede ser

    Gracias 

    Private Sub Varios_TextChanged(sender As Object, e As EventArgs) Handles T_Nombre_Varios.TextChanged, T_Tipo_Varios.TextChanged, T_Nota_Varios.TextChanged
            Select Case Focused
                Case T_Nombre_Varios.Focused = True
                    DGV_Tabla_Varios.CurrentRow.Cells(0).Value = T_Nombre_Varios.Text
    
                Case T_Tipo_Varios.Focused = True
                    DGV_Tabla_Varios.CurrentRow.Cells(1).Value = T_Tipo_Varios.Text
    
                Case T_Nota_Varios.Focused = True
                    DGV_Tabla_Varios.CurrentRow.Cells(2).Value = T_Nota_Varios.Text
    
            End Select
            ''''Call Fila_Varios()
        End Sub

    miércoles, 4 de marzo de 2020 19:34

Respuestas

  • hola

    Ehh creo que entendiste mal el uso del Select Case, no aplica con boolean, se supone que defines una variable que puede tomar valores para asi ingresar en cada caso

    Select...Case Statement (Visual Basic)

    en tu caso usa el If

    Private Sub Varios_TextChanged(sender As Object, e As EventArgs) Handles T_Nombre_Varios.TextChanged, T_Tipo_Varios.TextChanged, T_Nota_Varios.TextChanged
    	
    	If T_Nombre_Varios.Focused Then
    		DGV_Tabla_Varios.CurrentRow.Cells(0).Value = T_Nombre_Varios.Text
    	End If
    	
    	If T_Tipo_Varios.Focused Then
    		DGV_Tabla_Varios.CurrentRow.Cells(1).Value = T_Tipo_Varios.Text
    	End If
    	
    	If T_Nota_Varios.Focused Then
    		DGV_Tabla_Varios.CurrentRow.Cells(2).Value = T_Nota_Varios.Text
    	End If
    	
    End Sub

    saludos


    Leandro Tuttini

    Blog
    MVP Profile
    Buenos Aires
    Argentina

    • Marcado como respuesta Diablo_Rojo jueves, 5 de marzo de 2020 18:34
    • Desmarcado como respuesta Diablo_Rojo jueves, 5 de marzo de 2020 18:40
    • Marcado como respuesta Diablo_Rojo jueves, 5 de marzo de 2020 18:42
    jueves, 5 de marzo de 2020 3:53

Todas las respuestas

  • hola

    Ehh creo que entendiste mal el uso del Select Case, no aplica con boolean, se supone que defines una variable que puede tomar valores para asi ingresar en cada caso

    Select...Case Statement (Visual Basic)

    en tu caso usa el If

    Private Sub Varios_TextChanged(sender As Object, e As EventArgs) Handles T_Nombre_Varios.TextChanged, T_Tipo_Varios.TextChanged, T_Nota_Varios.TextChanged
    	
    	If T_Nombre_Varios.Focused Then
    		DGV_Tabla_Varios.CurrentRow.Cells(0).Value = T_Nombre_Varios.Text
    	End If
    	
    	If T_Tipo_Varios.Focused Then
    		DGV_Tabla_Varios.CurrentRow.Cells(1).Value = T_Tipo_Varios.Text
    	End If
    	
    	If T_Nota_Varios.Focused Then
    		DGV_Tabla_Varios.CurrentRow.Cells(2).Value = T_Nota_Varios.Text
    	End If
    	
    End Sub

    saludos


    Leandro Tuttini

    Blog
    MVP Profile
    Buenos Aires
    Argentina

    • Marcado como respuesta Diablo_Rojo jueves, 5 de marzo de 2020 18:34
    • Desmarcado como respuesta Diablo_Rojo jueves, 5 de marzo de 2020 18:40
    • Marcado como respuesta Diablo_Rojo jueves, 5 de marzo de 2020 18:42
    jueves, 5 de marzo de 2020 3:53
  • Muchisimas gracias Leandro

    jueves, 5 de marzo de 2020 18:35