COMO PEGAR DADOS NO LISTVIEW?

SACOFRITO 29/07/2010 17:23:39
#348818
Tenho um form para pesquisar preços por palavra digitada(listview)
Até aí tudo funciona muito bem... mas esse form tem uma chamada no meu balcao.. queria ao duplo clique na coluna do código do produto, puxasse esse produto para a tela do balcao, ou seja puxar o código para a textbox codigo, onde existe uma rotina de mostrar os dados ao evento change do codigo


Algm pode me ajudar?
Obrigado desde já
JAMESBOND007 29/07/2010 17:28:39
#348819
Veja se isto pode te ajudar
Dim ID As Integer [ô]Declare isto



Apos isto coloque esse codigo no evento

Private Sub lstVw_DblClick()
    AchaAmigo ID
End Sub



Private Sub AchaAmigo(ID As Integer)
    Dim SQL As String
    OpenConnection
    
    SQL = [Ô]SELECT  *  FROM Amigos WHERE ID=?[Ô]
    
    cmdIncluir.Caption = [Ô]Alterar[Ô]
    
    With command
        .ActiveConnection = connection
        .CommandType = adCmdText
        .CommandText = SQL
        Set recordset1 = .Execute(, Array(ID))
    End With
    cmdLimpar_Click
    
    With recordset1
        If Not .BOF Then
            While Not .EOF
                txtNome.Text = ![nome]
                txtSobrenome.Text = ![Sobrenome]
                txtApelido.Text = ![Apelido]
                txtEndereco.Text = ![Endereco]
                txtTelefone.Text = ![Telefone]
                dtpNascimento.Value = ![Nascimento]
                If ![Genero] = [Ô]Masculino[Ô] Then
                    optMasculino.Value = True
                Else
                    optFeminino.Value = True
                End If
                .MoveNext
            Wend
           End If
    End With
    CloseConnection
End Sub
MSMJUDAS 29/07/2010 17:28:43
#348820 Resposta escolhida
Coloca isso no evento DoubleClick:

Private Sub lvwDados_DblClick()
If lvwDados.ListItems.Count > 0 Then
TxtCodigo.Text = lvwDados.ListItems(lvwDados.SelectedItem.Index)
End If
End Sub

***Troque o lvwDados pelo nome do seu listview
SACOFRITO 29/07/2010 17:53:24
#348829
Obrigado MSMJUDAS, funcionou perfeitamente com pequenas alterações bobinhas ^^


Obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar