REMOVER ITENS EM BRANCO LISTVIEW
Pessoal como sempre não consigo entender, por que nao consigo remover estes items em branco, faco a mesma remocao para um tipo e para esta coluna sempre recebo o mesmo erro...Quero deixar somente as Linhas que estao com a Palavra SIM....
Estou usando esse codigo para remover outra linha e funciona corretamente....
Dim pos2 As Int32
Dim listItem2 As ListViewItem
For pos2 = ListView1.Items.Count - 1 To 0 Step -1
listItem2 = ListView1.Items(pos2)
If listItem2.SubItems(3).Text <= 6 Then
ListView1.Items.Remove(listItem2)
End If
Next
Erro que Recebo...
Estou usando esse codigo para remover outra linha e funciona corretamente....
Dim pos2 As Int32
Dim listItem2 As ListViewItem
For pos2 = ListView1.Items.Count - 1 To 0 Step -1
listItem2 = ListView1.Items(pos2)
If listItem2.SubItems(3).Text <= 6 Then
ListView1.Items.Remove(listItem2)
End If
Next
Erro que Recebo...
O erro está dizendo que não existe um indice com o valor 4 para os subitems do seu ListView. Isso me leva a crer que antes de acontecer o erro, essa linha de código --> [Ô]listItem2 = ListView1.Items(pos2)[Ô] não está trazendo o item da lista corretamente. Tente o seguinte: verifique qual o valor da variável pos2 e veja se ela está dentro dos limites da lista.
Quando se exclui um item da lista, acho que ocorre uma reordenação dos Ãndices, daà o valor da variável pos2 pode ter ficado fora dos limites.
Quando se exclui um item da lista, acho que ocorre uma reordenação dos Ãndices, daà o valor da variável pos2 pode ter ficado fora dos limites.
Tente assim.
Dim pos As Int32
Dim listItem As ListViewItem
For pos = Lv.Items.Count - 1 To 0 Step -1
listItem = Lv.Items(pos)
If listItem.SubItems(7).Text.Trim = [Ô][Ô] Then
Lv.Items.Remove(listItem)
End If
Next
Dim pos As Int32
Dim listItem As ListViewItem
For pos = Lv.Items.Count - 1 To 0 Step -1
listItem = Lv.Items(pos)
If listItem.SubItems(7).Text.Trim = [Ô][Ô] Then
Lv.Items.Remove(listItem)
End If
Next
Osmar2011 Mudei o Subitem para o 4 e Nada acontece....
Jaba cara o estranho que logo acima tenho outro for que funciona normalmente...e exclue as linhas corretamente que tivem o subitem menor que 6...
Criar um botão e coloque dentro e execute.
é a mesma coisa do outro
For Each listItem As ListViewItem In Listview1.Items
If listItem.SubItems.Item(4).Text.Trim = [Ô][Ô] Then
listItem.Remove()
End If
Next
é a mesma coisa do outro
For Each listItem As ListViewItem In Listview1.Items
If listItem.SubItems.Item(4).Text.Trim = [Ô][Ô] Then
listItem.Remove()
End If
Next
Osmar2011 Mesma coisa..Acho que tem a ver com que o jaba falou, cara preciso tanto resolver logo isso...Fogo quando comecar a caminha travo em algo e fica dificil de sair kkkkkk
Testei seu código aqui e funcionou perfeitamente.
Existe algum evento sendo tratado nessa sua ListView?
Existe algum evento sendo tratado nessa sua ListView?
Entao Jaba to achando que ao remover os pacientes que tem menos de 6 consultas ao tentar excluir os pacientes que nao tem o exame esta dando este erro...
Fiz vários testes aqui com o seu código e não gera erro.
Vai eliminando o problema por partes. Tenta excluir os itens só no primeiro FOR e veja quais itens restam.
Vai eliminando o problema por partes. Tenta excluir os itens só no primeiro FOR e veja quais itens restam.
Jaba ja fiz isso, mais quando chego nessa parte de excluir esses pacientes que seria a finalizacao gera este erro....
Tópico encerrado , respostas não são mais permitidas