Notifications
Clear all

Não mostrar o mesmo item em 2 listview

2 Posts
2 Usuários
0 Reactions
920 Visualizações
(@castilhos)
Posts: 12
Eminent Member
Topic starter
 

Olá pessoal

Esse é o codigo que uso para exportar item de um listview para outro.

O que preciso é que os itens exportados não apareçam mais no listview1.

Usei  uma função de excluir a linha exportada, mas ao executar uma pesquisa esses item aparecem de novo, pois essa manipulação é somente no listview, somente depois eu altero tbm na planilha

Lembrando eu só quero manipular no listiview, não vou fazer alteração na planilha nesse passo.

Private Sub btnTransCautelar_Click()
'Exporta linhas do ListDisponivel para listCautelar e exclui Linhha do ListDisponivel

Dim x, y As Integer
Dim Li As Object
Dim sItem As Long
''Exporta Linhas
For y = 1 To listDisponivel.ListItems.Count
If listDisponivel.ListItems.Item(y).Checked Then
Set Li = listCautelar.ListItems.Add(Text:=listDisponivel.ListItems.Item(y))

Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(1)
Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(2)
Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(3)
Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(4)
Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(5)
Li.ListSubItems.Add Text:=listDisponivel.ListItems.Item(y).SubItems(6)

End If
Next y
''Exclui linhas /// Vi que excluir não resolve pois ao pesquisar os itens retornam ao listiviw
With listDisponivel

sItem = .SelectedItem.Index
.ListItems.Remove (sItem)

End With
lblTotalDisponivel.Caption = listDisponivel.ListItems.Count
End Sub
 
Postado : 16/04/2023 1:27 pm
(@castilhos)
Posts: 12
Eminent Member
Topic starter
 

Segue Planilha para melhor compreensão

 
Postado : 17/04/2023 9:51 am
kev027
(@kev027)
Posts: 64
Trusted Member
 

Cara, me esforcei muito para te ajudar, sei quase nada de ListView. No entanto, a melhor forma que consegui pensar foi guardar numa Array as ID's que foram transferidas, em seguida, carregar novamente a listDisponivel com dois critérios: "DISPONÍVEL" na planilha4 e não pode conter as ID's dentro da Array, ou seja, as mesmas ID's incluídas na listCautelar.

Ironicamente, consegui fazer com que a listDisponivel carregue somente com os valores incluídos na Array, segue em anexo.

 
Postado : 18/04/2023 11:20 pm