none
Escribir dato en datagridview RRS feed

  • Pregunta

  • Buenas no consigo escribir dato en datagridview en cell(3).value de la ultima fila si ya previamente he borrado un dato

    si no tiene dato el codigo lo que hace es coger informacion de la cell(3).value que hay antes esta parte si funciona bien

    Gracias

    Dim Fila = DGVMediciones.CurrentRow
                    Dim fila_count = DGVMediciones.Rows.Count - 1
                    If Fila IsNot Nothing Then
                        Fila.Cells(1).Value = LB_SG_FInal.Text
                        Fila.Cells(2).Value = Ba
                        If Fila.Cells(3).Value = "" Then
                            Fila.Cells(3).Value = DGVMediciones.Rows(fila_count - 1).Cells(3).Value
                        Else
                        End If
    
                    Else
    
                    End If

    domingo, 30 de julio de 2017 10:36

Respuestas

  •  A ver así

     Dim Fila = DGVMediciones.CurrentRow
            Dim fila_count = DGVMediciones.Rows.Count - 1
            If Fila IsNot Nothing Then
                Fila.Cells(1).Value = LB_SG_FInal.Text
                Fila.Cells(2).Value = ba
                If Fila.Cells(3).Value = "" Then
                    Dim a As Integer = fila_count
                    For i As Integer = 0 To fila_count
                        If Not DGVMediciones.Rows(a).Cells(3).Value = "" Then
                            Fila.Cells(3).Value = DGVMediciones.Rows(a).Cells(3).Value
                            Exit For
                        End If
                        a = a - 1
                    Next
                Else
                End If
            End If


    • Editado Marcelo PF lunes, 31 de julio de 2017 13:17
    • Marcado como respuesta JETET lunes, 31 de julio de 2017 15:36
    lunes, 31 de julio de 2017 12:09

Todas las respuestas

  • Declaras fila_count = DGVMediciones.Rows.Count -1 y luego lo vuelves a declarar fila_count -1 debería quedar así 

    Fila.Cells(3).Value = DGVMediciones.Rows(fila_count).Cells(3).Value

    Saludos

    domingo, 30 de julio de 2017 16:14
  • No entiendo la duda, muestras un código que "funciona", pero entonces, ¿qué es lo que no "funciona"?

    Dim Fila = DGVMediciones.CurrentRow
    
    If Fila IsNot Nothing Then
    	Fila.Cells(1).Value = LB_SG_FInal.Text
    	Fila.Cells(2).Value = Ba
    	If String.IsNullOrEmpty(Fila.Cells(3).Value) Then
    		Fila.Cells(3).Value = DGVMediciones.Rows(Fila.Index - 1).Cells(3).Value
    	End If
    End If


    Nuestra profesión exige tener pasión por resolver problemas de una manera óptima y eficiente.
    domingo, 30 de julio de 2017 16:59
  • Me hace falta obtener la ultima celda(3) que contega datos no en blanco que es lo que me esta pasando 

    para que me escriba en la celda(3) en la fila actual

    lunes, 31 de julio de 2017 10:28
  •  A ver así

     Dim Fila = DGVMediciones.CurrentRow
            Dim fila_count = DGVMediciones.Rows.Count - 1
            If Fila IsNot Nothing Then
                Fila.Cells(1).Value = LB_SG_FInal.Text
                Fila.Cells(2).Value = ba
                If Fila.Cells(3).Value = "" Then
                    Dim a As Integer = fila_count
                    For i As Integer = 0 To fila_count
                        If Not DGVMediciones.Rows(a).Cells(3).Value = "" Then
                            Fila.Cells(3).Value = DGVMediciones.Rows(a).Cells(3).Value
                            Exit For
                        End If
                        a = a - 1
                    Next
                Else
                End If
            End If


    • Editado Marcelo PF lunes, 31 de julio de 2017 13:17
    • Marcado como respuesta JETET lunes, 31 de julio de 2017 15:36
    lunes, 31 de julio de 2017 12:09