Buenas, estoy intentando eliminar una celda concreta del flexgrid y me he encontrado con diversos problemas.

He estado buscando tambien en paginas inglesas pero no he visto nada al respecto.

He usado removeitem (habiendo seleccionado una celda concreta) pero me elimina toda la fila (y claro...celdas de otras columnas que no debería).

Como no encontraba metodo para hacerlo, he pensado en tratarlo como blanco Rejilla.Text = ""
pero claro, luego me deja el espacio en blanco en ese lugar, y debería de trasladarse abajo.


Digamos que tengo estos datos:

A E
B F
C G
D H
I
J

Rejilla.Col = 1
Rejilla.Row = 2
Rejilla.Text = ""

Ahora tendríamos:
A E
F

C G

D H

I

J

¿Como hacer para que C y D suban hacia arriba un lugar? O para eliminar ese espacio en blanco entre A y C???

He probado con Sort pero me ordena toda la tabla y encima mal. por cierto, son campos string no numericos. pero tambien he probado Rejilla.Sort = flexSortStringAscending
Rejilla.Sort = 1

y es curioso, porque algunos campos en blanco me los mete entre medio de campos string, cuando no tiene sentido porque los blancos ("") no pueden ordenarse si no tienen nada (en todo caso al inicio o al final, como está por defecto).

¿Que se os ocurre?

La idea principal es conseguir eliminar una celda de una columna determinada y que no borre toda la fila.


MUCHAS GRACIAS compañeros

Hola,

No se si habrá una forma más limpia, pero una solución quick and dirty podría ser utilizar un bucle que comience al fina y termine en la celda anterior a la que querés borrar y luego simplemente:
A) En la celda i-1 copiás el valor de la celda i
B) Ponés "" en la celda i

Saludos

Una forma que se me ocurre es usando arrays para almaecnar los datos de cada col, y despues actualizar de acuerdo a estos
Algo asi ( no lo probe mucho -- Eliminas con el boton 1 o con la tecla delete ..salu2

(' --- Lo pongo sin etiqueta CODEpara que no te de error al pegar el codigo en el IDEy te quede todo seguido)


Option Explicit
' ------------------------------------------------------------------------------------
' ------------------------------------------------------------------------------------
' \\ -- MsFlexgrid1, Command1, Command2
' ------------------------------------------------------------------------------------
' ------------------------------------------------------------------------------------

' -- Array de colección para los datos de cada Col
Private mArrCol() As Collection
' ------------------------------------------------------------------------------------
' \\ -- Botón para eliminar
' ------------------------------------------------------------------------------------
Private Sub Command1_Click()
With MSFlexGrid1
' -- Eliminar la celda actual
Call pvRemoveItem(MSFlexGrid1, .Row, .Col)
End With
End Sub
' ------------------------------------------------------------------------------------
' \\ -- Cargar otros datos
' ------------------------------------------------------------------------------------
Private Sub Command2_Click()
With MSFlexGrid1
.Rows = 1
.FormatString = "Col1|Col2|Col3"
Dim i As Integer
For i = 1 To 50
.AddItem CStr("Fila: " & CStr(i)) & " Col: 0" & vbTab & _
CStr("Fila: " & CStr(i)) & " Col: 1" & vbTab & _
CStr("Fila: " & CStr(i)) & " Col: 2" & vbTab
Next
For i = 0 To .Cols - 1
.ColWidth(i) = 2500
Next
' -- Pasar todo el grid a las colecciones
Call pvFillArrays(MSFlexGrid1)
End With
End Sub
' ------------------------------------------------------------------------------------
' \\ -- Inicio
' ------------------------------------------------------------------------------------
Private Sub Form_Load()

On Error GoTo Error_Handler

ReDim mArrCol(0)

' -- Setear Flex
With MSFlexGrid1
' -- Selección libre -- Es la que usás
.SelectionMode = flexSelectionFree
.FixedCols = 0
' -- Establecer cabeceras de la grilla
.FormatString = "Col 1|Col2"

Dim i As Long
Dim j As Integer
Dim lInitRow As Long
Dim iChar As Integer

.Rows = 11
iChar = 65

' -- Para que no de error en los bucles con el modo de cabecera usado
lInitRow = .FixedRows

' -- Cargar grid con datos
For j = 0 To .Cols - 1
For i = lInitRow To .Rows - 1
.TextMatrix(i, j) = CStr(Chr(iChar))
iChar = iChar + 1
Next
Next
' -- Setear ancho de columnas
.ColWidth(0) = 2000
.ColWidth(1) = 2000
' -- Pasar todo el grid a las colecciones
Call pvFillArrays(MSFlexGrid1)
End With

Command1.Caption = "Eliminar celda actual"
Command2.Caption = "Borrar todo el grid y cargar con otros datos"

' -------------------------------------------------------------------------------
' -- Errores
Exit Sub
Error_Handler:
MsgBox Err.Description, vbCritical, "Error en FormLoad"
End Sub
' ------------------------------------------------------------------------------------
' \\ -- Setear arrays/Cols -- Pasar todo el Grid a las colecciones.
' ------------------------------------------------------------------------------------
Private Sub pvFillArrays(pFlex As MSFlexGrid)
Dim i As Long
Dim j As Integer

With pFlex
' -- Instanciar colecciones de los datos de cada columna
ReDim mArrCol(0 To .Cols - 1)
For i = LBound(mArrCol) To UBound(mArrCol)
Set mArrCol(i) = New Collection
Next
' -- Pasar datos del Flex a las colecciones
For j = 0 To .Cols - 1
For i = 1 To .Rows - 1
mArrCol(j).Add .TextMatrix(i, j)
Next
Next
End With
End Sub
' -----------------------------------------------------------------------------------
' \\ -- Cargar datos de una columna
' -----------------------------------------------------------------------------------
Private Sub pvFillColumn(pFlex As MSFlexGrid, ByVal iCol As Integer, Optional ByVal lInit As Long = -1)
Dim i As Integer
' -- Celda actual -- Si no se indica empieza desde la primera
If lInit = -1 Then lInit = 1
With pFlex
' -- Deshabilitar el redraw por si hay muchos items
.Redraw = False
' -- Recorrer array para pasar los datos a la columna del grid
For i = lInit To .Rows - 1
.TextMatrix(i, iCol) = mArrCol(iCol).Item(i)
Next
.Redraw = True
End With
End Sub
' -----------------------------------------------------------------------------------
' \\ -- Eliminar valor de la colección y luego actualizar la columna del Grid
' -----------------------------------------------------------------------------------
Private Sub pvRemoveItem(pFlex As MSFlexGrid, ByVal lRow As Long, ByVal lCol As Long)
If (lCol <> -1) And (lRow <> -1) Then
With mArrCol(lCol)
Call .Remove(lRow)
Call .Add(vbNullString, , , .Count)
Call pvFillColumn(MSFlexGrid1, lCol, lRow)
End With
End If
End Sub
Private Sub Form_Resize()
On Error Resume Next
With MSFlexGrid1
.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight - 1000
Command1.Move 60, .Top + .Height, 4000
Command2.Move 60, Command1.Height + Command1.Top + 60, 4000
End With
End Sub
' -----------------------------------------------------------------------------------
' \\ -- Eliminar al presionar Supr
' -----------------------------------------------------------------------------------
Private Sub MSFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
With MSFlexGrid1
If KeyCode = vbKeyDelete Then
Call pvRemoveItem(MSFlexGrid1, .Row, .Col)
End If
End With
End Sub
' -----------------------------------------------------------------------------------
' \\ -- Eliminar arrays
' -----------------------------------------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
For i = LBound(mArrCol) To UBound(mArrCol)
Set mArrCol(i) = Nothing
Next
End Sub

Muchas gracias a los dos.

Al final he optado por el bucle, me parece más sencillo.

Aun así me pillo el codigo para ojearlo.

Muchas gracias