Private Sub ComboBox1_Change()
Dim collec As New Collection
If Me.ComboBox1.Value = "" Then Exit Sub
Me.ComboBox2.Clear
With Me.ListView1
.ListItems.Clear
.CheckBoxes = False
.FullRowSelect = True
.Gridlines = True
.LabelEdit = 1
.View = 3
For l = 1 To UBound(Tabtemp, 1)
If Tabtemp(l, 5) = Me.ComboBox1.Value Then
'Me.ComboBox2.AddItem Tabtemp(l, 4)
.ListItems.Add , , Tabtemp(l, 1)
x = .ListItems.Count
.ListItems(x).ListSubItems.Add , , Tabtemp(l, 2)
.ListItems(x).ListSubItems.Add , , Tabtemp(l, 3)
.ListItems(x).ListSubItems.Add , , Tabtemp(l, 4)
On Error Resume Next
collec.Add Tabtemp(l, 4), CStr(Tabtemp(l, 4))
.ListItems(x).ListSubItems.Add , , Tabtemp(l, 5)
.ListItems(x).ListSubItems.Add , , Tabtemp(l, 6)
x = x + 1
End If
Next
End With
With Me.txtTotal
Me.txtTotal = ListView1.ListItems.Count - 0
End With
For i = 0 To collec.Count
Me.ComboBox2.AddItem collec(i)
Next i
End Sub