ComboBox 3 niveles dependientes
Publicado por DiegoF (1 intervención) el 21/09/2016 18:37:56
Hola a todos, estoy realizando unas listas dependientes con ComboBox, y logro ralizarlo efectivamente para 2 niveles, al agregar el tercer nivel usando la misma referencia en el nivel 2, mje surgen dudas de como asociar los determinados campos, adjunto el codigo, uso la funcion Case para esto:
Entonces no entiendo como asociar el combobox 2 con el 3 ya que cualquiera opcion que escoja en el combo 2 me saldran las mismas en el combobox3.
Espero explicarme bien, gracias por su ayuda.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Nive1"
.AddItem "Nive1.2"
.AddItem "Nive1.3"
End With
End Sub
Private Sub ComboBox1_Change()
Dim index As Integer
index = ComboBox1.ListIndex
ComboBox2.ClearSelect Case index
Case Is = 0With ComboBox2
.AddItem "Nive1.1"
.AddItem "Nive1.2"
.AddItem "Nive1.3"
End With
Case Is = 1With ComboBox2
.AddItem "Nive1.2.1"
.AddItem "Nive1.2.2"
.AddItem "Nive1.2.3"
.AddItem "Nive1.2.4"
End With
Case Is = 2With ComboBox2
.AddItem "Nive1.3.1"
.AddItem "Nive1.3.2"
End With
End Select
End Sub
-------------------------------////ACA quiero realizar el nivel 3 que dependa del combobox 2
Private Sub ComboBox2_Change()
Dim index As Integer
index = ComboBox2.ListIndex
ComboBox3.ClearSelect Case index
Case Is = 0With ComboBox3
.AddItem "Items1"
.AddItem "Itemsr3"
.AddItem "Itemsr4"
End With
Case Is = 1With ComboBox3
.AddItem "Items4"
.AddItem "Items5"
.AddItem "Items6"
End With
Case Is = 2With ComboBox3
.AddItem "Items7"
.AddItem "Items8"
.AddItem "Items9"
End With
End Select
End Sub
Entonces no entiendo como asociar el combobox 2 con el 3 ya que cualquiera opcion que escoja en el combo 2 me saldran las mismas en el combobox3.
Espero explicarme bien, gracias por su ayuda.
Valora esta pregunta
0