COMBOBOX - HELP
Boa noite Pessoal!
Simplificando minha duvida:
-Tenho 01 ComboBox, 01 Label e 01 TextBox.
-No ComboBox tenho 2 opções, EX: Pessoa Fisica ou Pessoa Juridica.
-Gostaria que se no ComboBox for selecionado [Ô]Pessoa Fisica[Ô] , nas propiedades da LABEL o [Ô]Text[Ô] mudasse p/ CPF, e nas propriedades do TEXTBOX o [Ô]nome[Ô] mudasse p/ [Ô]Tex_CPF[Ô].
Entao Vai ficar assim:
ComBox - Pessoa Fisica
Label = CPF
TextBox = Tex_CPF
ComBox - Pessoa Jurica
Label = CNPJ
TextBox = Tex_CNPJ
Simplificando minha duvida:
-Tenho 01 ComboBox, 01 Label e 01 TextBox.
-No ComboBox tenho 2 opções, EX: Pessoa Fisica ou Pessoa Juridica.
-Gostaria que se no ComboBox for selecionado [Ô]Pessoa Fisica[Ô] , nas propiedades da LABEL o [Ô]Text[Ô] mudasse p/ CPF, e nas propriedades do TEXTBOX o [Ô]nome[Ô] mudasse p/ [Ô]Tex_CPF[Ô].
Entao Vai ficar assim:
ComBox - Pessoa Fisica
Label = CPF
TextBox = Tex_CPF
ComBox - Pessoa Jurica
Label = CNPJ
TextBox = Tex_CNPJ
Boa noite,
Fiz um exemplo aqui, da uma olhada ai para ver se é isso que queres.
Fiz um exemplo aqui, da uma olhada ai para ver se é isso que queres.
Olá ALTAIR148 eu estou usando o visual basic 2008 e quando tento abrir o seu exemplo esta dando erro e dizendo que foi criado por uma versao mais recente...
Amigo basta abrir o visual studio e mandar importar.
O código ficou assim:
Abaixo tem um link mostrando como importar.
Importar Itens
Até mais
O código ficou assim:
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.SelectedItem = [Ô]Pessoa FÃsica[Ô] Then
txtCPF_CNPJ.Name = [Ô]Tex_CPF[Ô]
lblCPF_CNPJ.Text = [Ô]CPF[Ô]
Else
If ComboBox1.SelectedItem = [Ô]Pessoa JurÃdica[Ô] Then
txtCPF_CNPJ.Name = [Ô]Tex_CNPJ[Ô]
lblCPF_CNPJ.Text = [Ô]CNPJ[Ô]
End If
End If
End Sub
Abaixo tem um link mostrando como importar.
Importar Itens
Até mais
Boa tarde Pessoal!
De acordo com o exemplo do ALTAIR148, eu consegui mudar a propriedade [Ô]NAME[Ô] do TextBox assim que a ComboBox for selecionada.
Agora outro problema:
E ficou assim, no meu codigo para adicionar no banco de dados.
sql = sql & [Ô][ô][Ô] & TextCPF.Text & [Ô][ô],[Ô] ------------------->quando o [Ô] Pessoa Fisica[Ô] estiver selecionado
sql = sql & [Ô][ô][Ô] & TextCNPJ.Text & [Ô][ô],[Ô] ------------------->quando o [Ô]Pessoa Jurica[Ô] estiver selecionado
Quando o codigo esta com a linha do TextCPF, o sistema grava normal no bando de dados.
Mas quando eu adiciono a segunda linha TextCNPJ, esta esta dando um erro dizendo que o TextCNPJ nao esta declarado.
Imagino que este erro esta acontecendo porque na propriedade Name desse TextBox, esta com o nome de TextCPF e o programa nao entende que eu preciso selecionar o [Ô]Pessoa Juridica[Ô] para que ele altere a sua propriedade Name para TextCNPJ.
Alguem pode me ajudar?
De acordo com o exemplo do ALTAIR148, eu consegui mudar a propriedade [Ô]NAME[Ô] do TextBox assim que a ComboBox for selecionada.
Agora outro problema:
E ficou assim, no meu codigo para adicionar no banco de dados.
sql = sql & [Ô][ô][Ô] & TextCPF.Text & [Ô][ô],[Ô] ------------------->quando o [Ô] Pessoa Fisica[Ô] estiver selecionado
sql = sql & [Ô][ô][Ô] & TextCNPJ.Text & [Ô][ô],[Ô] ------------------->quando o [Ô]Pessoa Jurica[Ô] estiver selecionado
Quando o codigo esta com a linha do TextCPF, o sistema grava normal no bando de dados.
Mas quando eu adiciono a segunda linha TextCNPJ, esta esta dando um erro dizendo que o TextCNPJ nao esta declarado.
Imagino que este erro esta acontecendo porque na propriedade Name desse TextBox, esta com o nome de TextCPF e o programa nao entende que eu preciso selecionar o [Ô]Pessoa Juridica[Ô] para que ele altere a sua propriedade Name para TextCNPJ.
Alguem pode me ajudar?
Posta ai como ficou o código da sua combobox.
Altair nem sei se eu posso postar isso aqui, mas se vc puder me adicionar no MSN, acho que eu poderia te explicar melhor, douglasbsi@hotmail.com e assim que eu resolver o problema, eu posto o que foi feito para funcionar
Aqui esta o codigo do ComboBox:
Private Sub CombPessoa_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombPessoa.SelectedIndexChanged
If CombPessoa.SelectedItem = [Ô]Pessoa FÃsica[Ô] Then
TextCNPJ.Name = [Ô]TextCPF[Ô]
LabelNome.Text = [Ô]Nome:[Ô]
LabelCPF.Text = [Ô]CPF:[Ô]
LabelRG.Text = [Ô]RG:[Ô]
LabelDN.Text = [Ô]Data Nascimento:[Ô]
LabelFax.Text = [Ô]Tel. Resid.:[Ô]
LabelFiliacao.Text = [Ô]Filiação:[Ô]
Else
If CombPessoa.SelectedItem = [Ô]Pessoa Juridica[Ô] Then
TextCPF.Name = [Ô]TextCNPJ[Ô]
LabelNome.Text = [Ô]Razão Social:[Ô]
LabelCPF.Text = [Ô]CNPJ:[Ô]
LabelRG.Text = [Ô]Inscrição Estadual:[Ô]
LabelDN.Text = [Ô]Nome Fantasia:[Ô]
LabelFax.Text = [Ô]Fax:[Ô]
LabelFiliacao.Text = [Ô]Contato:[Ô]
End If
End If
End Sub
Private Sub CombPessoa_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CombPessoa.SelectedIndexChanged
If CombPessoa.SelectedItem = [Ô]Pessoa FÃsica[Ô] Then
TextCNPJ.Name = [Ô]TextCPF[Ô]
LabelNome.Text = [Ô]Nome:[Ô]
LabelCPF.Text = [Ô]CPF:[Ô]
LabelRG.Text = [Ô]RG:[Ô]
LabelDN.Text = [Ô]Data Nascimento:[Ô]
LabelFax.Text = [Ô]Tel. Resid.:[Ô]
LabelFiliacao.Text = [Ô]Filiação:[Ô]
Else
If CombPessoa.SelectedItem = [Ô]Pessoa Juridica[Ô] Then
TextCPF.Name = [Ô]TextCNPJ[Ô]
LabelNome.Text = [Ô]Razão Social:[Ô]
LabelCPF.Text = [Ô]CNPJ:[Ô]
LabelRG.Text = [Ô]Inscrição Estadual:[Ô]
LabelDN.Text = [Ô]Nome Fantasia:[Ô]
LabelFax.Text = [Ô]Fax:[Ô]
LabelFiliacao.Text = [Ô]Contato:[Ô]
End If
End If
End Sub
Boa dia pessoal...
Consegui resolver meu problema. O ALTAIR me deu algumas dicas por msn e com isso eu consegui resolver.
Vai ae a dica!
Dim CPF As String
If combobox1.text = [Ô]Pessoa Fisica[Ô] then
Cpf = textCPF.Text
CNPJ = [Ô] [Ô]
Else
If combobox1.text = [Ô]Pessoa Juridica[Ô] then
CPF = [Ô] [Ô]
CNPJ = textCPF.Text
Dai com essa dica do ALTAIR eu consegui gravar em diferentes tabelas do meu banco de dados de acordo com a opçao do combobox selecionado, buscando do mesmo TextBox.
Valeu Altair!!!!!
Consegui resolver meu problema. O ALTAIR me deu algumas dicas por msn e com isso eu consegui resolver.
Vai ae a dica!
Dim CPF As String
If combobox1.text = [Ô]Pessoa Fisica[Ô] then
Cpf = textCPF.Text
CNPJ = [Ô] [Ô]
Else
If combobox1.text = [Ô]Pessoa Juridica[Ô] then
CPF = [Ô] [Ô]
CNPJ = textCPF.Text
Dai com essa dica do ALTAIR eu consegui gravar em diferentes tabelas do meu banco de dados de acordo com a opçao do combobox selecionado, buscando do mesmo TextBox.
Valeu Altair!!!!!
Tópico encerrado , respostas não são mais permitidas