powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Combobox + Change
5 сообщений из 5, страница 1 из 1
Combobox + Change
    #35055968
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго всем... времени суток.
У меня такая проблема: есть Combobox и нужно чтобы при изменении данных в нем, выполнялось событие.. Change это конечно хорошо, но у меня стиль Combo - Dropdown List... Т.е. Change не прокатывает... как выйти из ситуации?
...
Рейтинг: 0 / 0
Combobox + Change
    #35056022
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Click
...
Рейтинг: 0 / 0
Combobox + Change
    #35056127
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо, Antonariy.
И в догонку вопрос:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Combo1_Click()
Dim rec As New ADODB.Recordset
    rec.Open "select * from info WHERE mater=" & Combo1.Text, cn, adOpenDynamic, adLockOptimistic
    Combo5.Clear
    Do Until adr.EOF
        Combo5.AddItem rec.Fields("partia")
        rec.MoveNext
    Loop
    rec.Close
End Sub
код работает... но если в Combo1 текст кирилицей, то вылетает с ошибкой т.к. VB видит место букв - иероглифы
...
Рейтинг: 0 / 0
Combobox + Change
    #35056151
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Он по идее не должен работать даже с латиницей...
Код: plaintext
rec.Open "select * from info WHERE mater='" & Combo1.Text & "'", cn, adOpenDynamic, adLockOptimistic
...
Рейтинг: 0 / 0
Combobox + Change
    #35056160
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо. со скобками работает
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Combobox + Change
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]