COMBOBOX ATUALIZANDO VALORES REFERENTE A SELECAO
Boa Tarde!
Tenho 2 combobox no meu formulario e preciso que ao clicar na primeira ela carrega os dados referente para a segunda combo.
Ex. (Combo - Estado) (combo - Cidades) ao selecionar o estado de mina gerais retorna todas as cidades mineiras.
tenho os estados na coluna C e as cidades na coluna D.
Será que alguem poderia me ajudar?
Muito Obrigado!
Tenho 2 combobox no meu formulario e preciso que ao clicar na primeira ela carrega os dados referente para a segunda combo.
Ex. (Combo - Estado) (combo - Cidades) ao selecionar o estado de mina gerais retorna todas as cidades mineiras.
tenho os estados na coluna C e as cidades na coluna D.
Será que alguem poderia me ajudar?
Muito Obrigado!
OK, vamos lá!
Crie um novo projeto no VB6, e adicione 2 componentes do tipo COMBOBOX no FORM
Pressione a tecla F7 para acessar o editor de códigos, copie o código abaixo e cole no projeto.
[Ô]SP[Ô] Then
With Combo2
.Clear
.AddItem ([Ô]Guarulhos[Ô])
.AddItem ([Ô]Diadema[Ô])
.ListIndex = 0
End With
ElseIf Combo1.Text = [Ô]RJ[Ô] Then
With Combo2
.Clear
.AddItem ([Ô]Búzios[Ô])
.AddItem ([Ô]Duque de Caxias[Ô])
.ListIndex = 0
End With
End If
End Sub
Veja se resolve.
Private Sub Combo1_Click()
If Combo1.Text =
With Combo2
.Clear
.AddItem ([Ô]Guarulhos[Ô])
.AddItem ([Ô]Diadema[Ô])
.ListIndex = 0
End With
ElseIf Combo1.Text = [Ô]RJ[Ô] Then
With Combo2
.Clear
.AddItem ([Ô]Búzios[Ô])
.AddItem ([Ô]Duque de Caxias[Ô])
.ListIndex = 0
End With
End If
End Sub
Private Sub Form_Load()
With Combo1
.Clear
.AddItem ([Ô][Selecione uma UF][Ô])
.AddItem ([Ô]SP[Ô])
.AddItem ([Ô]RJ[Ô])
.ListIndex = 0
End With
Combo2.Clear
End Sub
Veja se resolve.
estes dados virão de um banco de dados? se sim qual o banco?
TECLA Bom dia!
Muito Obrigado ai pela super dica!
Ajudou d++
Consegui fazer o que eu esta tanto precisando!
Valeu!
Muito Obrigado ai pela super dica!
Ajudou d++
Consegui fazer o que eu esta tanto precisando!
Valeu!
OK.
Só não esqueça de encerrar o tópico.
Só não esqueça de encerrar o tópico.
Tópico encerrado , respostas não são mais permitidas