CÓDIGO

JPMILD 23/05/2016 16:15:22
#462452
Boa tarde tenho um form com os campos Sexo, Idade, Valor e status. Então gostaria de um código que automaticamente quando o campo Sexo for igual a Masculino , e o campo Idade estiver entre 20 e 39 anos e o campo Valor estiver entre 21 até 32,9 , automaticamente o campo Status seja igual a palavra Normal.
Tentei fazer com o comando IF e Else, mas nao deu certo , gostaria de uma ajuda se possivel , desde já agradeço pela atenção...
PERCIFILHO 23/05/2016 16:24:30
#462454
Mais ou menos assim:

If txtSexo.Text=[Ô]Masculino[Ô] And (txtIdade.Text>=20 Or txtIdade.Text<=39) And (txtValor.Text >=21 Or txtValor.Text<=32,9) Then
txtStatus.Text = Normal
Else
TxtStatus.Text = [Ô][Ô]
End If

Aí tem que ver em qual evento você irá fazer a validação.
JPMILD 23/05/2016 22:10:38
#462474
Citação:

:
Mais ou menos assim:

If txtSexo.Text=[Ô]Masculino[Ô] And (txtIdade.Text>=20 Or txtIdade.Text<=39) And (txtValor.Text >=21 Or txtValor.Text<=32,9) Then
txtStatus.Text = Normal
Else
TxtStatus.Text = [Ô][Ô]
End If

Aí tem que ver em qual evento você irá fazer a validação.


Citação:

:
Mais ou menos assim:

If txtSexo.Text=[Ô]Masculino[Ô] And (txtIdade.Text>=20 Or txtIdade.Text<=39) And (txtValor.Text >=21 Or txtValor.Text<=32,9) Then
txtStatus.Text = Normal
Else
TxtStatus.Text = [Ô][Ô]
End If

Aí tem que ver em qual evento você irá fazer a validação.



Obrigado , ja tentei em alguns eventos aqui mas nao deu certo, em qual evento vc acha que daria certo?
JABA 23/05/2016 23:47:12
#462475
Tente assim:

    Private Sub txtSexo_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtSexo.TextChanged
        If txtSexo.Text <> [Ô][Ô] AndAlso txtIdade.Text <> [Ô][Ô] AndAlso TxtValor.Text <> [Ô][Ô] Then
            If txtSexo.Text = [Ô]Masculino[Ô] AndAlso CInt(txtIdade.Text) >= 20 AndAlso CInt(txtIdade.Text <= 39) AndAlso CInt(TxtValor.Text) >= 21 AndAlso CDec(TxtValor.Text <= 32.9) Then
                txtStatus.Text = [Ô]Normal[Ô]
            Else
                txtStatus.Text = [Ô][Ô]
            End If
        End If
    End Sub
Faça seu login para responder
Voltar