Notifications
Clear all

Listview sem cabeçalho com filtro e seecionado p/ textbox

2 Posts
2 Usuários
0 Reactions
936 Visualizações
(@betorubini)
Posts: 57
Trusted Member
Topic starter
 

olá gostária de uma ajuda para fazer um listview sem cabeçalho, com filtro e enviando toda a linha do item selecionado para as respectivas textbox
Ex :

meu listview teria apenas os itens: "ID" e "Nome".
mas gostaria que quando um nome fosse selecionado ele enviasse todos os dados dessa pessoa p/ s textboxes, que seriam: "Endereço","Cel" e etc...

consigo fazer essas coisas usando cabeçalho, mas sem ele (cabeçalho) não

estou usando como filtro (com cabeçalho)

Private Sub txtbucafornecedor_Change()
    LastRow = Plan2.Cells(Rows.Count, "a").End(xlUp).Row
    ListViewFORNECEDOR.ListItems.Clear
    
    ' Adiciona itens
    For x = 2 To LastRow
    
    If txtbucafornecedor = "" Then
    ListViewFORNECEDOR.ListItems.Clear
    Exit Sub
    End If
    
    If UCase(Plan2.Cells(x, 3)) Like "*" & UCase(txtbucafornecedor) & "*" Then
    Set li = ListViewFORNECEDOR.ListItems.Add(Text:=Plan2.Cells(x, "a").Value)
    li.ListSubItems.Add Text:=Plan2.Cells(x, "c").Value
    Exit Sub
    End If
    Next
    
End Sub

e para levar para os textbox

Private Sub ListViewFORNECEDOR_click()

    If ListViewFORNECEDOR.ListItems.Count <= 0 Then
    Exit Sub
    End If

 txtcodigo2 = ListViewFORNECEDOR.SelectedItem.Text
 txtCNPJ = ListViewFORNECEDOR.SelectedItem.ListSubItems(1).Text
 txtEndereço = ListViewFORNECEDOR.SelectedItem.ListSubItems(2).Text
  
End Sub
 
Postado : 20/09/2012 3:44 pm
(@lovera)
Posts: 90
Estimable Member
 

Declare algumas variaves para essas informações que vc necessita.

Atribua os valores as variaveis.

Nomei os textbox onde vc quer que as informações dessas variaveis apareçam.
Nas instruções do proprio formulario coloque com o comando with e end with as informações para descarregar essas variaveis nos textbox que vc deseja. Associe a algum evento, pode ser do tipo change, initialize e por ai vai.

Qq coisa anexe o seu arquivo.

 
Postado : 22/09/2012 6:11 am