Dim ShoesName(100), ShoesArticle(100) As String
Dim ShoesValue(100), ShoesPrice(100), i As Integer

Private Sub Combo1_Click()
List1.Clear
List2.Clear
List3.Clear
Dim N As Integer
For N = 0 To i
If ShoesArticle(N) = Combo1.Text Then
List1.AddItem (ShoesName(N))
List2.AddItem (ShoesValue(N))
List3.AddItem (ShoesPrice(N))
End If
Next N
End Sub

Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Dim N As Integer
i = -1
'Загрузка значений в массив
Open App.Path + "\data.txt" For Input As #1
Do Until EOF(1)
i = i + 1
Input #1, ShoesArticle(i), ShoesName(i), ShoesValue(i), ShoesPrice(i)
Loop
Close #1
'Выбераем только женскую обувь
For N = 0 To i
If ShoesArticle(N) = "Ж" Then
List4.AddItem (ShoesName(N))
List5.AddItem (ShoesValue(N))
End If
Next N
End Sub

Private Sub List1_Click()

End Sub





Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.