ERRO EM UM FOR

KURTGU 23/07/2015 11:24:20
#449152
SINCERAMENTE GOSTARIA DE SABER AONDE ESTA O ERRO KKKK... PROJETO EM ANEXO NAO DA ERRO MAIS FAZ O QUE PEDI EM OUTRA COLUNA KKKK

For i = 0 To ListView1.Items.Count - 1
If ListView1.Items(i).SubItems(2).Text > 5 Then
ListView1.Items(i).SubItems.Add(4).Text = [Ô]SIM[Ô]
ElseIf ListView1.Items(i).SubItems(2).Text < 6 Then
ListView1.Items(i).SubItems.Add(4).Text = [Ô]NÃO[Ô]
End If
Next
TUNUSAT 23/07/2015 13:12:34
#449157 Resposta escolhida
KURTGU,

Não deu erro no for comigo, mas precisei trocar três pontos:

1 - 

      [ô]Me.MainForm = Global.CarregarExcel.Form1
      Me.MainForm = Global.ImportDatainExcel.Form1


2 e 3 -
       [ô]Friend ReadOnly Property Settings() As Global.CarregarExcel.My.MySettings
        <Global.System.ComponentModel.Design.HelpKeywordAttribute([Ô]My.Settings[Ô])> _
        Friend ReadOnly Property Settings() As Global.ImportDatainExcel.My.MySettings
            Get
                [ô]Return Global.CarregarExcel.My.MySettings.Default
                Return Global.ImportDatainExcel.My.MySettings.Default
            End Get
        End Property


[][ô]s,
Tunusat.
KURTGU 23/07/2015 14:41:12
#449163
Entao Tunusat quando voce aperta calcular consultas ele teria que preencher o listview o ultimo campo com quem tem mais de >=6 consultas e ele nao faz isso....
KURTGU 23/07/2015 14:47:18
#449165
Novo projeto com os erros acimas que voce citou o problema esta no for do botao calcula consultas...
TUNUSAT 23/07/2015 16:54:29
#449166

KURTGU,

No download acima não tinha nada dentro do botão ... coloquei sua rotina (abaixo) e rodou normalmente...

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        For i = 0 To ListView1.Items.Count - 1
            If ListView1.Items(i).SubItems(2).Text > 5 Then
                ListView1.Items(i).SubItems.Add(4).Text = [Ô]SIM[Ô]
            ElseIf ListView1.Items(i).SubItems(2).Text < 6 Then
                ListView1.Items(i).SubItems.Add(4).Text = [Ô]NÃO[Ô]
            End If
        Next

    End Sub


[][ô]s,
Tunusat.
KURTGU 23/07/2015 18:54:42
#449170
Tunusat por algum motivo cara quando aperto o botão calcular consultas ele preenche algumas campos na Coluna Puerpério e outros na Coluna 6 não entendo o por que disso..ja fiz e refiz isso varias vezes e nada...
TUNUSAT 24/07/2015 08:20:56
#449176
KURTGU,

Agora percebi o problema.
Parece que o comando [Ô].Add[Ô] adiciona mais 1 em campos que já estão preenchidos...
... estou tentando fazer sem usar o [Ô].Add[Ô], mas não está aceitando em campos vazios.
Acho que os campos que estão [Ô]vazios[Ô] precisam ser preenchidos com [Ô].Add[Ô] e os que já foram preenchidos anteriormente tem que ser preenchidos com [Ô].Text[Ô].
Agora não dá para eu testar mais, mas procure alguma documentação na teia... exemplo:
====================================================
ListView Control with Multiple Column in VB.NET
http://www.dotnetheaven.com/article/listview-control-with-multiple-column-in-vb.net
Dim str(5) As String
Dim itm As ListViewItem
    str(0) = [Ô]Rob Machy[Ô]
    str(1) = [Ô]100 North Ave[Ô]
    str(2) = [Ô]Business Manager[Ô]
    str(3) = [Ô]89,000[Ô]
    str(4) = [Ô]Development[Ô] 
    itm = New ListViewItem(str)
    ListView1.Items.Add(itm)

====================================================
Usando o controle ListView
http://www.macoratti.net/vbn_lstv.htm
====================================================
Working with the ListView in VB.NET
http://www.codeguru.com/columns/vb/working-with-the-listview-in-vb.net.htm
====================================================

[][ô]s,
Tunusat .
NICKOSOFT 24/07/2015 10:59:33
#449184
lendo tudo agora q entendi o problema.....
realmente não sei, pq já fiz umas pesquisas rápidas pra ajudar la no outro tópico, pq nunca usei um listview em meus projetos, então realmente é algo bem novo pra mim kkkk

acredito q o melhor caminho é procurar forma de editar subitem, pq ai tanto faz como ele esta, vc vai altera-lo
KURTGU 24/07/2015 11:40:35
#449188
TUNUSAT Ultilizando a Logica que vc me passou fiz da seguinte forma....mais Recebo um erro, cara que chato isso kkkkk

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
For i = 0 To ListView1.Items.Count - 1
If ListView1.Items(i).SubItems(2).Text > 5 Then
ListView1.Items(i).SubItems(4).Text = [Ô]SIM[Ô]
End If
Next
End Sub

[ô]erro que aparece
An unhandled exception of type [ô]System.ArgumentOutOfRangeException[ô] occurred in System.Windows.Forms.dll
Additional information: InvalidArgument=Value [ô]4[ô] não é um valor válido para [ô]index[ô].
TUNUSAT 24/07/2015 11:51:04
#449189
KURTGU,

Tem como você NÃO preencher alguns campos da coluna (4) Antes de apertar o botão?
Se não tiver como você precisa passar um [Ô].ADD[Ô] para as células [Ô]novas[Ô] e as células que já estão preenchidas passar um [Ô].Text[Ô] (acho que é isso, não testei).


NICKOSOFT,

Descobriu algo?


[][ô]s,
Tunusat.
KURTGU 24/07/2015 12:07:14
#449190
estou tentando fazer o seguinte se o paciente tiver 6 consultas ou mais e o exemae pueperio como sim então ele esta OK, mais já tentei de tudo mais não cheguei nada que desse certo...

Mesmo erro de cima...

For i = 0 To ListView1.Items.Count - 1
If ListView1.Items(i).SubItems(2).Text > 5 And ListView1.Items(i).SubItems(3).Text = [Ô]SIM[Ô] Then
ListView1.Items(i).SubItems(4).Text = [Ô]OK[Ô]
End If
Next
Página 1 de 2 [19 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar