ERRO EM UM FOR

NICKOSOFT 24/07/2015 14:46:07
#449198
a ideia é essa mesmo, se esta limpo tem q add, se esta preenchido usa o text, assim ele passa alterando onde esta sim pra não, porem se não tem nada na célula da erro, por isso limitei o for, a 10 célula estava limpa e gerava erro....o problema q a célula estando limpa, o index da erro, agora não sei se valeria a pena no preenchimento do list preencher toda a coluna com alguma informação, e em seguida passar zerando, pode ser uma gambi q resolva
  
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        For i = 0 To 8
            If ListView1.Items(i).SubItems(1).Text = [Ô]SIM[Ô] Then
                ListView1.Items(i).SubItems(1).Text = [Ô]nao[Ô]
            End If
        Next
    End Sub
TUNUSAT 24/07/2015 16:51:29
#449209
NICKOSOFT,

Legal, as células [Ô]não inicializadas[Ô] (ou que nunca armazenaram um valor qualquer) não aceita [Ô].Text[Ô].
Acredito que o [Ô].Add[Ô] deve fazer algum tipo de [Ô]inicialização[Ô] da célula, talvez uma alocação em memória e talz (chutando).

[][ô]s,
Tunusat.
NICKOSOFT 24/07/2015 17:00:34
#449210
realmente, a única ideia de pronto q tive foi essa, inicialmente preenche-las (add), assim indexa, e podem ser manipuladas posteriormente (text) sem qq problema
depende o volume de dados pode se tornar bem lento isso, ai um novo problema....
KURTGU 24/07/2015 17:05:59
#449211
So precisava fazer um cont de quantos pacientes tem 6> consultas e o puerpério como sim....mais ta difícil....
TUNUSAT 24/07/2015 17:09:46
#449212
PessoALL,

Não consegui achar uma função para me dizer se a [Ô]célula[Ô] está inicializada ou não ... A [Ô]IsError[Ô] também não ajuda!
Mas estava pensando em algo assim:
        For i = 0 To ListView1.Items.Count - 1

            If IsError(ListView1.Items(i).SubItems(3)) Then

                If ListView1.Items(i).SubItems(2).Text > 5 Then
                    ListView1.Items(i).SubItems(1).Text = [Ô]SIM[Ô]
                ElseIf ListView1.Items(i).SubItems(2).Text < 6 Then
                    ListView1.Items(i).SubItems(1).Text = [Ô]NÃO[Ô]
                End If

            Else

                If ListView1.Items(i).SubItems(2).Text > 5 Then
                    ListView1.Items(i).SubItems.Add([Ô]SIM[Ô])
                ElseIf ListView1.Items(i).SubItems(2).Text < 6 Then
                    ListView1.Items(i).SubItems.Add([Ô]NÃO[Ô])
                End If

            End If

        Next


[][ô]s,
Tunusat.
KURTGU 24/07/2015 17:41:20
#449213
Tunusat com esse ultimo ele funciounou mais ele insiste em colocar no campo puerpério aonde esta vazio o calculo kkkk foda....
NICKOSOFT 25/07/2015 06:50:00
#449219
Mas se na parte do add vc definir o index do subitem igual na partre de cima da edicao?
TUNUSAT 27/07/2015 08:18:00
#449255
KURTGU,

Estou tentando entender uma coisa...
... pq é feito um duplo [Ô]FOR[Ô] na parte de cima do código?

For i = 0 To ListView1.Items.Count - 1
                For i2 = 0 To ListView2.Items.Count - 1
                    If ListView1.Items(i).Text = ListView2.Items(i2).Text Then
                        ListView1.Items(i).SubItems.Add(i).Text = [Ô]SIM[Ô]
                    Else
                        ListView1.Items(i).SubItems.Add(i).Text = [Ô] [Ô]
                    End If
                Next
            Next


Bom ... eu adicionei este trecho de código:
                    Else
                        ListView1.Items(i).SubItems.Add(i).Text = [Ô] [Ô]


Com este trecho, não é mais possível fazer [Ô].Add[Ô], somente usar o [Ô].Text[Ô]... acredito eu...

            If ListView1.Items(i).SubItems(2).Text > 5 Then
                ListView1.Items(i).SubItems(4).Text = [Ô]SIM[Ô]
            ElseIf ListView1.Items(i).SubItems(2).Text < 6 Then
                ListView1.Items(i).SubItems(4).Text = [Ô]NÃO[Ô]
            End If


[][ô]s,
Tunusat.
KURTGU 27/07/2015 08:51:47
#449256
Agradeco a Todos Pela Ajuda...E Principalmente Paciencia....
Página 2 de 2 [19 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar