Programación General > Visual Basic 6.0 e inferiores

 Msflexgrid.removeitem

<< < (2/2)

sergiofelix:

--- Cita de: "UserCode" --- hola muchachos, que tal le ha ido con quien ha hecho uso del .RemoveItem de un MSFlexgrid

Yo lleno un MSFlexgrid en memoria al seleccionar unos Item de un Combobox asi:


--- Código: Text ---     MSF.Rows = MSF.Rows + 1    MSF.Row = MSF.Rows - 1     MSF.Col = 1    MSF.Text = cmbDescripcion.Text        MSF.Col = 2    MSF.Text = cmbDesc1.Text         MSF.Col = 3    MSF.Text = txtMonto1.Text  
Pero no he podido ver bien como armar el codigo sin que de errores del Remover en caso de desear quitar un agregado al MSFlexgrid

Estaba probando algo como esto pero no me ha servido:

--- Código: Text ---     For i = 1 To MSF.Rows - 1        MSF.Row = i        MSF.Col = i    Next    MSF.RemoveItem (MSF.Row)  
Alguien ha logrado o sabe como hacer un correcto uso del RemoveItem del MSFlexgrid sin morir en el intento  :unsure:
--- Fin de la cita ---
por lo que dices "quitar la ultima fila no fija" deseas quitar todas las filas, para eso solo inicializa tu msflexgrid

msflexgrid.rows=1
msflexgrid.cols=2
msflexgrif.formatstring="codigo  | " & vbtab & "Descripcion                           |"

vbtab = hace que automaticamente de cambie de celda a la derecha en ma misma fila

UserCode:
Bueno yo termine con esto, me va muy bien con eso B) igual tomo nota para otras formas, todos los caminos conducen a roma  :P

--- Código: Text --- Private Sub MSHF_KeyDown(KeyCode As Integer, Shift As Integer)    If KeyCode = 46 Then 'Delete        If MSHF.Row &#62; 1 Then ' 1 es el tamaño en fila del grid - 1, o sea MshFlexGrid.Rows - 1            MSHF.RemoveItem (MSHF.Row)            MSHF.Refresh        ElseIf MSHF.Row = 1 Then            MSHF.Clear: MSHF.Rows = 1            MSHF.Col = 1: MSHF.Row = 0: MSHF.Text = &#34;Descripción&#34;            MSHF.Col = 2: MSHF.Row = 0: MSHF.Text = &#34;Monto&#34;        End If    End IfEnd Sub  

Navegación

[0] Índice de Mensajes

[*] Página Anterior