MshFlexGrid vb6

Question

Otra consulta en este fragmento de código no puedo eliminar la primera fila me sale este mensaje NO SE PUEDE QUITAR LA ULTIMA FILA NO FIJA este es el código.

Private Sub btnEliminar_Click()
  With flex
    If .Row > 0 Then .RemoveItem (.Row)
  End With
End Sub

Si puedo eliminar pero cuando queda solo un registro en la grilla ese no ese puede eliminar sale el error antes mencionado.

---

Pedro Avila

Answer 1

Tienes que remplazar la fila por una vacia

    With flex
   
        If .Rows = 2 Then
            .Rows = .Rows + 1
            Lleno = False
        End If
     
        If .Row > 0 Then .RemoveItem (.Row)
     
    End With

Si el total de filas son 2 (1 es la cabezera) añadimos una fila nueva y eliminamos la otra

Answer 2

El total es una en la primera que es el (0,0) esta el titulo pero es cabecera y un registro vacío me carga en el load cuando lanzo voy a proba el código y te comento.

---

Pedro Avila

Answer 3

Si Toni funcionó a la perfección gracias socio

---

Pedro Avila