Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Combobox + Change / 5 сообщений из 5, страница 1 из 1
11.01.2008, 14:15
    #35055968
ЕленаMC
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox + Change
Доброго всем... времени суток.
У меня такая проблема: есть Combobox и нужно чтобы при изменении данных в нем, выполнялось событие.. Change это конечно хорошо, но у меня стиль Combo - Dropdown List... Т.е. Change не прокатывает... как выйти из ситуации?
...
Рейтинг: 0 / 0
11.01.2008, 14:30
    #35056022
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox + Change
Click
...
Рейтинг: 0 / 0
11.01.2008, 14:58
    #35056127
ЕленаMC
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox + Change
Спасибо, 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
11.01.2008, 15:02
    #35056151
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox + Change
Он по идее не должен работать даже с латиницей...
Код: plaintext
rec.Open "select * from info WHERE mater='" & Combo1.Text & "'", cn, adOpenDynamic, adLockOptimistic
...
Рейтинг: 0 / 0
11.01.2008, 15:04
    #35056160
ЕленаMC
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox + Change
Спасибо. со скобками работает
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Combobox + Change / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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