SELECIONAR DADOS DA LISTVIEW

EVERSON.PASETTO 21/10/2011 21:24:14
#387381
Tenho uma ListView Balanco.

Tenho o seguinte codigo

Private Sub cmdReceber_Click()
For Each Li In Me.lsvBalanco.ListItems
If Li.Checked Then
If lsvBalanco.Checkboxes = True Then
Call sGravaRepetido
End If
End If
Next
End Sub

Ele seleciona A Primeira linha.. verifica se ele estiver selecinado.. então chamar o sGravaRepetido
Mas tenho os campos..
Nome, Data, Valor, Tipo

Por exemplo

Everson | 21/10/2011 | R$ 12,00 | 1

Deve regravar para

Everson | 21/10/2011 | R$ 12,00 | 0

Nota-se que muda apenas a ultima informação

O que mais estou precisando é capturar os dados de cada coluna..

São 4 colunas..
Digamos que se eu selecinar 3 linhas.. no codigo que informei acima.. ela vai passando.. e se o Checkboxes = True ele deve capturar as informações... como dita acima.. e regravar..

Como faço para capturar os dados da coluna?
EVERSON.PASETTO 21/10/2011 21:40:01
#387383
Acrescentando uma parte..

Tenho uma outra ListView lsvTemp
Quero que todos os nomes das contas que foram selecioadas.. apareçam nesta lista
é possivel fazer isso sem precisar gravar no banco de dados?

Digamos que preciso usar variaveis para armazenar os dados.. se eu selecinar 100 dados na lista.. então vou precisar de 100 variaveis.. assim complica..

Posso fazer sem gravar os dados? Deixando os temporiariamente na listview..

Se puderem me ajudar em apenas uma parte do codigo, essa parte.. ou a que pedi anteriormente, serve..

A parte mais importante é essa parte aqui.. de armazenar os dados temporiamente..
EVERSON.PASETTO 21/10/2011 21:43:09
#387385
Desculpe postar as duas perguntas em uma..
Acontece que só consigo criar um topico por vez

Olhei nos meus topicos e apenas vejo um ativo..

Cado o resto?
JESUEL.OLIVEIRA 21/10/2011 23:01:48
#387388 Resposta escolhida
Amigo, no que eu entendi o que você quer ta ai minha ajuda.
Após incluir um tópico e você visualizar o mesmo no canto superior tem uma opção de edição e exclusão você consegue editar e postar tudo no mesmo lugar.

   
        For I = 1 To List_Fechamentos_Empresa.ListItems.Count
            If List_Fechamentos_Empresa.ListItems(I).Checked = True Then
                
                
                coluna 1 = List_Fechamentos_Empresa.ListItems(I).ListSubItems(2)
                colunas 0 = List_Fechamentos_Empresa.ListItems(I).ListSubItems(1)
                coluna 2 = List_Fechamentos_Empresa.ListItems(I).ListSubItems(3)
            End If
        Next



Veja se ajuda
Tópico encerrado , respostas não são mais permitidas
Voltar