
Ayuda con vinculación entre ComboBox1, 2 y 3
Publicado por Victor (2 intervenciones) el 19/09/2017 19:15:11
Estimados:
Estoy intentanto realizar una relación entre ComboBox dependientes entre si. Lo que quiero ordenarle al programa es:
- Si ComboBox1 dice "Carga", entonces dame un menú desplegable en ComboBox2 con las opciones "B", "C", "D" y "E" (esto lo realicé sin problemas).
- Si en ComboBox1 dice "Carga" y ademas en ComboBox2 dice "B"; Entonces en el ComboBox3 arrojame un menú desplegable con la opción "Diámetro 3"
- Si en ComboBox1 dice "Carga" y ademas en ComboBox2 dice "C"; Entonces en el ComboBox3 arrojame las opciones "Diámetro 4" y "Diámetro 5"
- Si en ComboBox1 dice "Carga" y ademas en ComboBox2 dice "D"; Entonces en el ComboBox3 arrojame las opciones "Diámetro 6" y "Diámetro 7"
Etc....
Para lograr esto probé (la verdad, inventé sin saber) lo siguiente:
Private Sub ComboBox2_Change()
Select Case ComboBox2.Text
Case ComboBox1.Text = "Carga" & ComboBox2.Text = "B"
ComboBox3.Clear
ComboBox3.AddItem "Diámetro 3"
Case ComboBox1.Text = "Carga" & ComboBox2.Text = "C"
ComboBox3.Clear
ComboBox3.AddItem "Diámetro 4"
ComboBox3.AddItem "Diámetro 5"
Case ComboBox1.Text = "Carga" & ComboBox2.Text = "D"
ComboBox3.Clear
ComboBox3.AddItem "Diámetro 6"
ComboBox3.AddItem "Diámetro 7"
End Select
Sin embargo, no me resulta... si alguien pudiese ayudarme, por favor en lenguaje sencillo se lo agradecería un montón, ya que me encuentro recién comenzando en este mundo del VB.
Un cordial saludo...
Estoy intentanto realizar una relación entre ComboBox dependientes entre si. Lo que quiero ordenarle al programa es:
- Si ComboBox1 dice "Carga", entonces dame un menú desplegable en ComboBox2 con las opciones "B", "C", "D" y "E" (esto lo realicé sin problemas).
- Si en ComboBox1 dice "Carga" y ademas en ComboBox2 dice "B"; Entonces en el ComboBox3 arrojame un menú desplegable con la opción "Diámetro 3"
- Si en ComboBox1 dice "Carga" y ademas en ComboBox2 dice "C"; Entonces en el ComboBox3 arrojame las opciones "Diámetro 4" y "Diámetro 5"
- Si en ComboBox1 dice "Carga" y ademas en ComboBox2 dice "D"; Entonces en el ComboBox3 arrojame las opciones "Diámetro 6" y "Diámetro 7"
Etc....
Para lograr esto probé (la verdad, inventé sin saber) lo siguiente:
Private Sub ComboBox2_Change()
Select Case ComboBox2.Text
Case ComboBox1.Text = "Carga" & ComboBox2.Text = "B"
ComboBox3.Clear
ComboBox3.AddItem "Diámetro 3"
Case ComboBox1.Text = "Carga" & ComboBox2.Text = "C"
ComboBox3.Clear
ComboBox3.AddItem "Diámetro 4"
ComboBox3.AddItem "Diámetro 5"
Case ComboBox1.Text = "Carga" & ComboBox2.Text = "D"
ComboBox3.Clear
ComboBox3.AddItem "Diámetro 6"
ComboBox3.AddItem "Diámetro 7"
End Select
Sin embargo, no me resulta... si alguien pudiese ayudarme, por favor en lenguaje sencillo se lo agradecería un montón, ya que me encuentro recién comenzando en este mundo del VB.
Un cordial saludo...
Valora esta pregunta


0