https://foro.gambas-es.org/viewtopic.php?f=1&t=5716&p=33902#p33902
-----------------------------------
v3ctor
Martes, 16 Agosto 2016, 15:31

Re: Como Hacer Seleccion Multiple En Tableview Y Eliminarlos?[Resuelto]
-----------------------------------
[code linenumbers=false syntax=gambas]

Private SeleccionMultiple As New Integer[]

Public Sub btnEliminarEntrada_Click()
  Dim id As Integer
  Dim fila As Integer
  
  For Each id In SeleccionMultiple
    
    Try Almacen.CX_Inventario.exec("delete from entradas where identrada=&1", id)
     If Error Then
        Message.Error(("Imposible borrar el registro"))
    Endif
    
  Next
  
  SeleccionMultiple.Clear
  btnEliminarEntrada.Enabled = False
  
  CargarTablaEntradas()
  tvEntradas.UnSelectAll
  
End


Public Sub tvEntradas_Click()
  txtaComentario.Clear()
  txtaComentario.Text = Consultas.ObtenerComentarioDeEntrada(CInteger(tvEntradas[tvEntradas.Row, 0].Text))
  TablaSelecionada = "entradas"
  IdSelecionado = CInteger(tvEntradas[tvEntradas.Row, 0].Text)
  RestaurarBotonModificarComentario(True)
   
  SeleccionMultiple.Add(CInteger(tvEntradas[tvEntradas.Row, 0].Text)) 'aqui los item de cada registro
  
  btnEliminarEntrada.Enabled = True
  
End


Private Sub CargarTablaEntradas()
  Dim Resultado As Result
  Dim fila, c As Integer
  
  Resultado = Consultas.ListarEntradas()
  
  Do While Resultado.Available
    
     tvEntradas.Rows.Count = Resultado.Count
      
     tvEntradas[fila, c].Text = Resultado!identrada
        
     Inc c 
     tvEntradas[fila, c].Text = Resultado!fecha
    
     Inc c 
     tvEntradas[fila, c].Text = Resultado!cosa
   
     Inc c 
     tvEntradas[fila, c].Text = Resultado!c_antes
     
     Inc c 
     tvEntradas[fila, c].Text = Resultado!c_despues
      
     Inc c 
     tvEntradas[fila, c].Text = Resultado!diferencia

     If fila Mod 2 = 0 Then
        tvEntradas[fila, c].Background = Color.Cyan
     Endif
    
     Resultado.MoveNext()
     Inc fila
     c = 0
  Loop

End[/code]


