| Вопрос: Срочно нужна помощ | Добавлено: 26.08.05 13:20 |
Автор вопроса:  sava
|
| Есть два поля со списком,в одном Фирмы в другом модели.Мне нужно чтобы выбрав фирму во втором поле отображались модели только этой фирмы. ACCESS2000 |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  SergeyL ICQ: 192223227 Вопросов: 0 Ответов: 4 |
Профиль | | #1 | Добавлено: 07.09.05 08:54 |
|
Если я правильно понимаю задачу, то необходимо чтоб к поле модели содержалась информация о фирме производителе. Если есть, хотя бы ввиде текста, то тогда не проблема.
Список 1 - ComboBox1 Список 2 - ListBox1 Предполагается, что в поле со списком моделей имеются все модели в такмо виде , например "Ford Focus" В окне модуля надо добавить: Option Base 1 Option Compare Text Public FirmArray() As String В коде формы : Public Sub GetFirmModel 'Записываем полный перечень моделей в массив Redim FirmArray(1) As String Dim I As Long, M As Long For I=1 to ListBox1.ListCount-1 If ListBox1.List(I)<>"" Then M=M+1 Redim Preserve FIrmArray(M) FirmArray(M)=ListBox1.List(I) End If Next End Sub Процедуру GetFirmModel нуно от куда-нить вызвать один раз. Private Sub ComboBox1_Click(.... List1.Clear Dim I As Long, strTmp As String strComb As String strComb=ComboBox1.List(ComboBox1.ListIndex) For I=1 to UBound(FirmArray) strTmp=FirmArray(I) If InStr(1,strComb,strTmp)<>0 Then ListBox1.AddItem(strTmp) End If Next End Sub ... по-моему примерно так |
||
Страница: 1 |