none
como puedo usar un For desde un modulo RRS feed

  • Pregunta

  • Hola Necesito de la ayuda , Tengo un form con tres paneles el primero es donde esta la información del usuario , fecha, hora , etc, el segundo contiene un menú donde se encuentran varios botones que a darle clic abren otro form (Formhijo) en el tercer panel, la cuestión es que tengo una condición que cuando se ejecuta el formhijo  en el datagridview cambia de color de las fila dependiendo si se cumple cierta condición, pero al llamar el formhijo no se cumple , pero cuando ejecuto el form al que llamo por separado si se cumple la condición. no que estoy haciendo mal .  

    Este es el modulo que cree para esta condición

    Module Condiciones
    
        Public Sub AguaSalud()
    
            For i As Integer = 0 To FSAguaSalud.F_S_AGUASALUDDataGridView.RowCount - 1
                If FSAguaSalud.F_S_AGUASALUDDataGridView.Rows(i).Cells(5).Value() = "F/SERVICIO" Then
                    FSAguaSalud.F_S_AGUASALUDDataGridView.Rows(i).DefaultCellStyle.BackColor = Color.Yellow
    
                End If
            Next
    
            For i As Integer = 0 To FSAguaSalud.F_S_AGUASALUDDataGridView.RowCount - 1
                If FSAguaSalud.F_S_AGUASALUDDataGridView.Rows(i).Cells(5).Value() = "DESMANTELADO" Then
                    FSAguaSalud.F_S_AGUASALUDDataGridView.Rows(i).DefaultCellStyle.BackColor = Color.Red
                End If
            Next
    
        End Sub
    End Module

    y este el es código que coloco dentro del formhijo (FSAguaSalud)

    Private Sub ACTUALIZAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ACTUALIZAR.Click
            
    Condiciones.AguaSalud()
    
           Me.F_S_AGUASALUDTableAdapter.Fill(Me.SFS_DataSet._F_S_AGUASALUD)
           
           
            TextUserGcia.Clear()
            TextPassGcia.Clear()
            TextBox1.Clear()
            TextBox2.Clear()      
          
    
        End Sub

    incluso también lo coloque en el botton que llama al formhijo desde el Form Principal y nada

    Private Sub fservicio_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles fservicio.Click
    
            If Label5.Text = "AGUA SALUD" Then
                Condiciones.AguaSalud()
                formularios.AbrirFormularios(New FSAguaSalud)
                tamaño.button3()
    End If
    
    End Sub
    jueves, 21 de mayo de 2020 4:33

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

    jueves, 21 de mayo de 2020 14:30
    Moderador
  • Hola

    intenta mandando como parametro el datagridview

    Public Sub AguaSalud(byRef dgv As DataGridView)

    y para implementarlo sera

    AguaSalud( F_S_AGUASALUDDataGridView)

    martes, 26 de mayo de 2020 12:22
  • ok , deja y realizo el cambio y te aviso , gracias por responder

    lo eh probado con lo que me sugeriste pero no me funciona amigo

    • Propuesto como respuesta Marti Llam miércoles, 3 de junio de 2020 16:47
    • Votado como útil Marti Llam miércoles, 3 de junio de 2020 16:47
    • Editado Dorittoxd viernes, 5 de junio de 2020 22:42 prueba de la sugerencia
    miércoles, 3 de junio de 2020 2:29