Controles/Librerías/Componentes :: Borrado De Filas En Control TableView

Portal

Foro

Buscar

FAQ

Registrarse

Conectarse

Fecha y hora actual: Sabado, 11 May 2024, 20:35 • Todas las horas son UTC + 1 Hora

Borrado De Filas En Control TableView

Página 1 de 1

Borrado De Filas En Control TableView

Autor

Mensaje

mauriciobaeza Sexo: Masculino

Usuario

Registrado: Febrero 2015
Mensajes: 4
Edad: 109

Borrado De Filas En Control TableView

Hola a todos...

Para saber si una fila esta seleccionada uso:

Código: [Descargar] [Ocultar] [Seleccionar]

TableView.Rows[Fila].Selected

Si quiero borrar una no hay problema...

Código: [Descargar] [Ocultar] [Seleccionar]

TableView.Rows.Remove(Fila, 1)

Pero cuando quiero borrar todas las filas seleccionadas, no encuentro un método que me deuelva solo las filas seleccionadas para no tener que iterar en todas las filas del control.

En la documentación del control no veo algo al respecto: http://gambaswiki.org/wiki/comp/gb.form/tableview
y buscando en internet y este foro tampoco he encontrado algo al respecto.

¿alguna idea?

Gracias y saludos

S.O. Mint 17.1, Cinamon
gambas 3.1.1, gb.QT

#1 Sabado, 07 Febrero 2015, 00:51

Shell

Analista Programador

Registrado: Marzo 2010
Mensajes: 5278
Edad: 53
Ubicación:

Al otro lado de la pantalla

Re: Borrado De Filas En Control TableView

Hola Mauricio.

Existe una propiedad que contiene las filas seleccionadas.
Tabla.Rows.Selections

Es un array de las filas seleccionadas. Así si tienes seleccionadas las filas 1 y 3. Los elementos del array que contienen Tabla.Rows.Selections serian:

Tabla.Rows.Selections[0] = 1
Tabla.Rows.Selections[1] = 3

Pero, veo un problema. ¿ Que pasa si eliminas una fila ?. Pues que el valor de las filas cambian por lo tanto el valor que contiene ese array es un fila menos.
Solo no debemos tocar el primero. Así que al borrar el primero.

El siguiente elemento:
Tabla.Rows.Selections[1] = 3

El valor de la fila pasa a uno menos.

Tabla.Rows.Selections[1] = 3 -1
Tabla.Rows.Selections[1] = 2

Hice este ejemplo, a ver si se puede mejorar, ~~es funcional~~. Casi.

Código: [Descargar] [Ocultar] [Seleccionar]

' gambas class file

Public Sub _new()

End

Public Sub Form_Open()

  tblEjemplo = titulos(tblEjemplo)
  LlenarTabla(tblEjemplo)

End

Public Function titulos(hTabla As TableView) As TableView

  With hTabla
    .Header = 3
    .Columns.Count = 5
    .Rows.Count = 5
    .Columns.Resizable = True
    .Columns[0].Title = "A"
    .Columns[1].Title = "B"
    .Columns[2].Title = "C"
    .Columns[3].Title = "D"
    .Columns[4].Title = "E"
  End With
  Return hTabla

End

Public Sub LlenarTabla(hTabla As TableView)

  Dim columnas, filas As Integer

  For columnas = 0 To hTabla.Columns.Count - 1
    For filas = 0 To hTabla.Rows.Count - 1
      hTabla[filas, columnas].Text = "F: " & filas & " " & "C: " & columnas
    Next
  Next

End

Public Sub btnEliminarFIlas_Click()

  Dim fseleccionadas As New Integer[]
  Dim x As Integer

  If BorrarFilas(tblEjemplo) Then
    If tblEjemplo.Rows.Selection.Count = 1 Then
      tblEjemplo.Rows.Remove(tblEjemplo.Rows.Selection[0])
    Else
      For x = 0 To tblEjemplo.Rows.Selection.Max
        If x = 0 Then
          fseleccionadas.Add(tblEjemplo.Rows.Selection[x])
        Else
          fseleccionadas.Add(tblEjemplo.Rows.Selection[x] - 1)
        Endif
      Next
    Endif

    For x = 0 To fseleccionadas.Max
      tblEjemplo.Rows.Remove(fseleccionadas[x])
    Next

  Endif

End

Public Sub BorrarFilas(hTabla As TableView) As Boolean

  If hTabla.Rows.Selection.Count > 0 Then Return True

End

Aquí tienes el ejemplo para que lo pruebes. Como ves elimina cada fila seleccionada.

P.d ¿ La Linux Mint 17 No trae la gambas 3.5 ?.

Saludos

TableViewEleminarVariasFIlas.tar.gz
Descripción:		Descargar
Nombre del archivo:	TableViewEleminarVariasFIlas.tar.gz
Tamaño:	5.78 KB
Descargado:	38 veces

TableViewEleminarVariasFIlas.tar.gz
Descripción:		Descargar
Nombre del archivo:	TableViewEleminarVariasFIlas.tar.gz
Tamaño:	5.78 KB
Descargado:	38 veces

TableViewEleminarVariasFIlas.tar.gz
Descripción:		Descargar
Nombre del archivo:	TableViewEleminarVariasFIlas.tar.gz
Tamaño:	5.78 KB
Descargado:	38 veces

===================
Gambas Básico
"No es un bug, es una característica no documentada"

última edición por Shell el Sabado, 07 Febrero 2015, 11:29; editado 4 veces

#2 Sabado, 07 Febrero 2015, 11:13

Shell

Analista Programador

Registrado: Marzo 2010
Mensajes: 5278
Edad: 53
Ubicación:

Al otro lado de la pantalla

Re: Borrado De Filas En Control TableView

Errores observados:

Primero y principal: Llega un momento que da Argumento invalido en:

Código: [Descargar] [Ocultar] [Seleccionar]

For x = 0 To fseleccionadas.Max
tblEjemplo.Rows.Remove(fseleccionadas[x])
Next

Y lo más curioso, si elimino todas las filas,¿ cómo es que en tblEjemplo.Rows.Selection sigue existiendo el índice 0 con valor 0 ?.
He tenido que cambiar el procedimiento Borrar Filas:

Código: [Descargar] [Ocultar] [Seleccionar]

Public Sub BorrarFilas(hTabla As TableView) As Boolean

  If hTabla.Rows.Count <> 0 And hTabla.Rows.Selection.Count > 0 Then Return True

End

Otras observaciones:

- Si elimino una fila. ¿ Cómo es que se queda seleccionada una nueva fila si yo no la he seleccionado ? ( color )
- Seleccionamos todas las filas. Ahora selecciono una sola fila de las seleccionadas.:
¿ Cómo es que no se ha deseleccionado las anteriores y no queda solo una fila seleccionada ?.

Saludos

===================
Gambas Básico
"No es un bug, es una característica no documentada"

#3 Sabado, 07 Febrero 2015, 13:51

mauriciobaeza Sexo: Masculino

Usuario

Registrado: Febrero 2015
Mensajes: 4
Edad: 109

Re: Borrado De Filas En Control TableView

Hola Compañero...

Muchas gracias por tu respuesta...

En mi versión de gambas no veo esa propiedad y cuando la intento usar me da el error "simbolo desconocido", mismo mensaje cuando pruebo tu ejemplo. Desafortunadamente por ahora dependo totalmente de usar gambas 3.1, es algo grande el proyecto y la veces que he intentado migrar a la ultima versión me rompe muchas cosas... tantas que voy a aprovechar para reescribir el sistema en la ultima versión, en cuanto pueda...

Si, es posible instalar sin problemas la ultima versión de gambas en Mint, pero ahora que usaré la ultima versión ya podré trabajar en mi distribución de cabecerá que es ArchLinux...

Saludos y gracias de nuevo

#4 Lunes, 09 Febrero 2015, 06:34

Temas parecidos

	Autor	Foro	Respuestas	último mensaje
El Control TableView - Como Editar Un Camb...	arubioc	Controles/Librerías/Componentes	4	Lunes, 01 Agosto 2011, 14:16 arubioc
Control TableView Hoja De Calculo	tercoIDE	Controles/Librerías/Componentes	6	Miercoles, 20 Julio 2016, 00:24 tercoIDE
Filas Visibles De Un Gridview	shordi	General	2	Domingo, 14 Agosto 2016, 08:58 shordi
DirBox No Da Evento Click Con Boton De Bor...	tincho	Controles/Librerías/Componentes	9	Viernes, 05 Julio 2019, 23:18 shordi

Página 1 de 1

Fecha y hora actual: Sabado, 11 May 2024, 20:35 • Todas las horas son UTC + 1 Hora

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno

Lista de permisos

No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

Versión reducida del foro - (Lo-Fi)
Página generada en:: 0.141s (PHP: -7% SQL: 107%)
Consultas SQL: 32 - Debug off - GZIP Activado

Design by Mighty Gorgon