retirar dados de um lisviw

[luiz47 0]

ola pessoal tudo bem gostaria da ajuda de todos vocês, no meu form eu tenho um listviw com 20 linhas por 10 colunas todos os campos estão preenchidos, ou seja retirei os dados de um tabela e adicionei ao list so que agora preciso ler o dados do listviw, linha por linha , celula por celula, mas não sei como fazer isso alguem tem alguma boa idéia.

Uso vb6

luiz

 

fiquem com Deus.

[Nilson Cl. 0]

Bom dia luiz47

 

Segue como você pode proceder para ler um listview

 

O Codigo abaixo é para ler o list

Sub LerList()
Dim Codigo As Long
Dim Produto As Long
Dim Valor As Long
Dim Quantidade As Long

 For i = 1 To lstLista.ListItems.Count
   
        Codigo = lstLista.ListItems.Item(i)
        Produto = lstLista.ListItems.Item(i).SubItems(1)
        Valor = Format(lstLista.ListItems.Item(i).SubItems(2), "##,###.00")
        Quantidade = lstLista.ListItems.Item(i).SubItems(3)
   
    Next i
    
End Sub

Este Bloco de codigo é para excluir a linha selecionada do listview

 

Private Sub lstLista_BeforeLabelEdit(Cancel As Integer)
 lstLista.ListItems.Remove (lstLista.SelectedItem.Index)
End Sub

o Codigo acima esta dentro do vento beforelabeledit

mude o nome do list para no nome do seu listview

 

Qual quer coisa manda ai

 

 

t+