LISTVIEW - CONTEUDO DA LINHA
Preenchi meu listview:
While Not rsRecordSet.EOF
Set itemlst = listviewCidades.ListItems.Add(, , rsRecordSet("codcidade"))
itemlst.SubItems(1) = rsRecordSet("sigla")
itemlst.SubItems(2) = rsRecordSet("cidade")
rsRecordSet.MoveNext
Wend
Agora preciso saber o comando para capturar o rsRecordSet("cidade"), da linha selecionada:
Private Sub listviewCidades_Click()
msgbox ? ? ?
End Sub
While Not rsRecordSet.EOF
Set itemlst = listviewCidades.ListItems.Add(, , rsRecordSet("codcidade"))
itemlst.SubItems(1) = rsRecordSet("sigla")
itemlst.SubItems(2) = rsRecordSet("cidade")
rsRecordSet.MoveNext
Wend
Agora preciso saber o comando para capturar o rsRecordSet("cidade"), da linha selecionada:
Private Sub listviewCidades_Click()
msgbox ? ? ?
End Sub
if not lstviewCidades.selecteditem is nothing then
msgbox listviewCidades.selecteditem.subitems(2)
end if
msgbox listviewCidades.selecteditem.subitems(2)
end if
neste caso eu faria um pouco diferente...
Set itemlst = listviewCidades.ListItems.Add(,"C" & rsRecordSet("codcidade") , rsRecordSet("codcidade"))
para adicionar o item
para selecionar:
set listviewcidades.selecteditem = listviewcidades.listitems("C5")
Set itemlst = listviewCidades.ListItems.Add(,"C" & rsRecordSet("codcidade") , rsRecordSet("codcidade"))
para adicionar o item
para selecionar:
set listviewcidades.selecteditem = listviewcidades.listitems("C5")
Tópico encerrado , respostas não são mais permitidas