ERRO DE CONVERSAO

MMARTINS 21/04/2012 12:03:16
#400423
NÃO, SEM BANCO DE DADOS, POR ENQUANTO!
ALTAIR148 21/04/2012 12:27:59
#400426
Não tem como postar o projeto não? Só o txt assim fica difícil de analisar, está muito grande.
MMARTINS 21/04/2012 14:38:49
#400437
Em que formato consigo enviar?
ALTAIR148 21/04/2012 14:47:36
#400438
Compacta como ZIP;
MMARTINS 21/04/2012 15:22:28
#400440
Segue ai!
ALTAIR148 21/04/2012 17:58:25
#400450
O erro esta nesse trecho...

 Private Sub NumericUpDown3_ValueChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged
                    NumericUpDown4.Value = 100 - (NumericUpDown3.Value + Label181.Text)
          End Sub


    Private Sub NumericUpDown4_ValueChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown4.ValueChanged
        
            NumericUpDown3.Value = 100 - (NumericUpDown4.Value + Label181.Text)
      
    End Sub

    Private Sub NumericUpDown1_ValueChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
                  NumericUpDown2.Value = 100 - NumericUpDown1.Value
        End Sub

    Private Sub NumericUpDown2_ValueChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged
      
            NumericUpDown1.Value = 100 - NumericUpDown2.Value
       
    End Sub
    Private Sub NumericUpDown6_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown6.ValueChanged
      
            NumericUpDown5.Value = 100 - NumericUpDown6.Value
        End Sub
    Private Sub NumericUpDown5_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown5.ValueChanged
       
            NumericUpDown6.Value = 100 - NumericUpDown5.Value
          End Sub


Substituia por esse que funciona

 Private Sub NumericUpDown3_ValueChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown3.ValueChanged
        Try
            NumericUpDown4.Value = 100 - (NumericUpDown3.Value + Label181.Text)
        Catch ex As Exception
        End Try
    End Sub


    Private Sub NumericUpDown4_ValueChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown4.ValueChanged
        Try
            NumericUpDown3.Value = 100 - (NumericUpDown4.Value + Label181.Text)
        Catch ex As Exception
        End Try
    End Sub

    Private Sub NumericUpDown1_ValueChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown1.ValueChanged
        Try
            NumericUpDown2.Value = 100 - NumericUpDown1.Value

        Catch ex As Exception
        End Try
    End Sub

    Private Sub NumericUpDown2_ValueChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown2.ValueChanged
        Try
            NumericUpDown1.Value = 100 - NumericUpDown2.Value
        Catch ex As Exception
        End Try
    End Sub
    Private Sub NumericUpDown6_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown6.ValueChanged
        Try
            NumericUpDown5.Value = 100 - NumericUpDown6.Value
        Catch ex As Exception
        End Try
    End Sub
    Private Sub NumericUpDown5_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NumericUpDown5.ValueChanged
        Try
            NumericUpDown6.Value = 100 - NumericUpDown5.Value
        Catch ex As Exception
        End Try
    End Sub
MMARTINS 21/04/2012 23:06:32
#400458
VALEU, ALTAIR!

MUITO OBRIGADO! DEU CERTO! MUITO BOM!
Página 2 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar