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