LISTI VIEW,SABER SE TEM ALGUM REGISTRO SELECIONADO
seguinte, tenhu um list view, e tenho um botao pra deletar.
só q se ele apertar e n tiver nenhum selecionado, ele deleta o 1º registro ( se n me engano) . como faço para saber se tem algum item somente [Ô]clicado[Ô] tipo [Ô]grifado [Ô] ..
POSSO FAZER UM FOR DE I ATE O COUNT DA LISTA. MAS COMO SABER SE TA SELECIONADO OU N. NA PROP. SELECTED ITEM, TA SEMPRE DANDO COM TRUE. MESMO SE N SELECIONO NADA.
DESDE JA AGRADEÇO
só q se ele apertar e n tiver nenhum selecionado, ele deleta o 1º registro ( se n me engano) . como faço para saber se tem algum item somente [Ô]clicado[Ô] tipo [Ô]grifado [Ô] ..
POSSO FAZER UM FOR DE I ATE O COUNT DA LISTA. MAS COMO SABER SE TA SELECIONADO OU N. NA PROP. SELECTED ITEM, TA SEMPRE DANDO COM TRUE. MESMO SE N SELECIONO NADA.
DESDE JA AGRADEÇO
Para excluir: List1.ListItems.Remove (List1.SelectedItem.Index)ou
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=abrir&varID=312761&varWorld=
n eh isso q eu kero. eu kero saber se tem algum selecionado..
pq eu vou dar um delete no banco...
para o usuario burro , caso n selecione nada, ver, pq caso ele n selecione nada, e eu n faço essa verificação,. ele vai deletar o 1º registro.
pq eu vou dar um delete no banco...
para o usuario burro , caso n selecione nada, ver, pq caso ele n selecione nada, e eu n faço essa verificação,. ele vai deletar o 1º registro.
tente alguma coisa assim não tenho certeza se e isso
if List1.ListItems.Remove (List1.SelectedItem.Index) = [Ô][Ô] then
msgbox [Ô]gege[Ô],vbExclamation
exit sub
end if
tenta alguma coisa assim
if List1.ListItems.Remove (List1.SelectedItem.Index) = [Ô][Ô] then
msgbox [Ô]gege[Ô],vbExclamation
exit sub
end if
tenta alguma coisa assim
tenta isso
If ListView1.SelectedItem.Selected = False Then Exit Sub
If ListView1.SelectedItem.Selected = False Then Exit Sub
Fácil:
Dim I As Integer
ESSE EXEMPLO VERIFICA SE O REGISTRO ESTÃ SELECIONADO
For I = 1 To ListViewDados.Count
If ListViewDados.ListItems(I).Selected = True Then
Conn.Execute([Ô]DELETE FROM TABELA WHERE CODIGO = [Ô] & ListViewDados.ListItems(I).Text & [Ô][Ô])
End If
Next I
ESSE EXEMPLO VERIFICA SE O REGISTRO ESTÃ CHECKADO (CHECKBOX SETADO)
For I = 1 To ListViewDados.Count
If ListViewDados.ListItems(I).Checked = True Then
Conn.Execute([Ô]DELETE FROM TABELA WHERE CODIGO = [Ô] & ListViewDados.ListItems(I).Text & [Ô][Ô])
End If
Next I
Dim I As Integer
ESSE EXEMPLO VERIFICA SE O REGISTRO ESTÃ SELECIONADO
For I = 1 To ListViewDados.Count
If ListViewDados.ListItems(I).Selected = True Then
Conn.Execute([Ô]DELETE FROM TABELA WHERE CODIGO = [Ô] & ListViewDados.ListItems(I).Text & [Ô][Ô])
End If
Next I
ESSE EXEMPLO VERIFICA SE O REGISTRO ESTÃ CHECKADO (CHECKBOX SETADO)
For I = 1 To ListViewDados.Count
If ListViewDados.ListItems(I).Checked = True Then
Conn.Execute([Ô]DELETE FROM TABELA WHERE CODIGO = [Ô] & ListViewDados.ListItems(I).Text & [Ô][Ô])
End If
Next I
Tópico encerrado , respostas não são mais permitidas