RENUMERAR A LISTVIEW

 Tópico anterior Próximo tópico Novo tópico

RENUMERAR A LISTVIEW

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#481552 - 09/05/2018 16:54:20

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


   Olá pessal,
se alguém puder me ajudar

estou usando dessa forma para inserir item na listview
Set Item = ListProdutos.ListItems.Add(, , ListProdutos.ListItems.Count + 1)
        Item.SubItems(1) = "" & txtCodProduto
        Item.SubItems(2) = "" & txtDescricao
        Item.SubItems(3) = "" & txtPrecoUnit
assim ele vai se auto numerando, exemplo
item | descrição ...
1      
2
3
4

Só que quando quero excluir um dos itens precisaria que ele auto-se renumerasse ao excluir um item

Esta linha de codigo que uso para excluir
ListProdutos.ListItems.Remove (ListProdutos.SelectedItem.Index)

Alguém poderia me ajudar, por gentileza!

Atenciosamente




Isabella


#481554 - 09/05/2018 18:50:22

MARCELOKROL
REBOUCAS
Cadast. em:Julho/2004


creio que esse list deva ser um lançamento de itens de um pedido, venda, nota fiscal ou algo do tipo. Bom no meu caso, se em algum momento o usuário exclui um item da lista, eu não não renumero ela, apenas deixo ele faltando mesmo, mas quando efetuo a gravação no banco de dados, aproveitando um outro loop pra verificar se todos os produtos estão com os dados corretos informados, eu ja renumero, assim desse modo ao gravar no banco ele vai ser gravado corretamente.
Apenas uma dica



Resposta escolhida #481556 - 09/05/2018 20:56:55

DAMASCENO.CESAR
ADAMANTINA
Cadast. em:Fevereiro/2009


for a=0 to list.count -1
      list.item(subitem(0)= a+1
next a

vê se funciona

O conhecimento é como o dinheiro: quanto mais temos, mais queremos ter (Josh Billings)  


#481574 - 11/05/2018 12:06:25

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


Citação:
:
for a=0 to list.count -1
      list.item(subitem(0)= a+1
next a

vê se funciona


Não funcionou!


Isabella


#481638 - 14/05/2018 19:02:58

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


tentei assim, mas esta dando erro no SubItems

Dim i As Integer
For i = 0 To ListProdutos.ListItems.Count - 1
       ListProdutos.ListItems(SubItems(0)) = i + 1
Next i



Isabella


#481640 - 14/05/2018 21:24:11

SONILDO
CAMPO GRANDE
Cadast. em:Agosto/2009


A melhor forma de re-numerar é

Para exclir:
Call ListView1.ListItems.Remove(ListView1.SelectedItem.Index)

Para re-numerar
For i = 1 To ListView1.ListItems.Count
    ListView1.ListItems.item(i).Text = Format(i, "00")
Next



 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ISABELLASILVA em 16/05/2018 13:27:38