powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объект Combo и ввод с клавиатуры.
16 сообщений из 16, страница 1 из 1
Объект Combo и ввод с клавиатуры.
    #34561891
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
когда-то видела сайт, где в Combo можно было только выбирать (стоял запрет на ввод данных с клавиатуры). Уже с пол часа гуглю интернет и не могу найти как это сделать. Каким образом это делается? и возможно ли это в бейсике?
...
Рейтинг: 0 / 0
Объект Combo и ввод с клавиатуры.
    #34561919
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Style = DropdownList
...
Рейтинг: 0 / 0
Объект Combo и ввод с клавиатуры.
    #34562085
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
:) спасибо любезный! Уже второй раз выручаешь :)
...
Рейтинг: 0 / 0
Объект Combo и ввод с клавиатуры.
    #34562118
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Таков он Повелитель Internet Explorer :)
...
Рейтинг: 0 / 0
Объект Combo и ввод с клавиатуры.
    #34562308
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
:) Я наверно уже запарила всех...
Очередной вопрос возник...
1.
Код: plaintext
1.
adr.Open "select DISTINCT firma from docs", cnn, adOpenDynamic, adLockOptimistic
Combo6.AddItem = adr
Замысел: чтобы в Combo6 добавлялись без повторений.
Судя по тому что ошибок не светит, значит запрос правильный. следовательно неверна строка Combo6.AddItem = adr.
подкажите как правильно?

2. уже много раз встречала что модно пользоваться библиотекой, кот. открівается при нажатии на F2... только я не понимаю как ней пользоваться... нашла команду которая мне нужна..
допустим мне внизу выдало:
Const adErrURLNamedRowDoesNotExist = 3737 (&HE99)
Member of ADODB.ErrorValueEnum
и я понятия не имею куда это пихать. :) Я не блондинка... просто мало знаю :) скажите где об этом почитать можно?
...
Рейтинг: 0 / 0
Объект Combo и ввод с клавиатуры.
    #34562324
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
сколько опечаток в верхнем посте... наверно все-таки я блондинка... или сказывается конец рабочего дня...
в верхнем посте:
же много раз встречала что модно пользоваться библиотекой читать не модно, а можно.... :)
ну а остальные опечатки - это мелочи.. :)
...
Рейтинг: 0 / 0
Объект Combo и ввод с клавиатуры.
    #34562329
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1. знак "=" не нужен...
2. заполнять Combo нужно в цикле.
...
Рейтинг: 0 / 0
Объект Combo и ввод с клавиатуры.
    #34562344
JaneDoe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот вот... в цикле что бы на каждый ответ выло свое поле в комбо
...
Рейтинг: 0 / 0
Объект Combo и ввод с клавиатуры.
    #34562373
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
без "=" все та-же фигня... а с циклом... можешь пример привести?
...
Рейтинг: 0 / 0
Объект Combo и ввод с клавиатуры.
    #34562391
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ага.... нашла у себя ошибку...
короче эти строки не выполнялись :) прошу меня простить...
перенесла их и теперь пишет ошибку:
Compile error. Argument not optional
...
Рейтинг: 0 / 0
Объект Combo и ввод с клавиатуры.
    #34562406
JaneDoe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а нынешний код какой?
...
Рейтинг: 0 / 0
Объект Combo и ввод с клавиатуры.
    #34562408
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VB под рукой нет... проверить не могу но общая идея такова

Do until adr.eof
combo6.additem adr.fields("firma")
adr.movenext
loop

Кажется так.... Если наплужил, пусть меня поправят
...
Рейтинг: 0 / 0
Объект Combo и ввод с клавиатуры.
    #34562430
JaneDoe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
и у меня нету но примерно так же считаю

rsData.Open sreSQL, strCon
Do while (Not rsData.eof)
combo1.additem rsData
rsDATA.movenext

ну что вроде такого
...
Рейтинг: 0 / 0
Объект Combo и ввод с клавиатуры.
    #34562432
ЕленаMC
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
поправлять не нужно все работает.
Вот код... мот нужен будет кому-нибудь...
Код: plaintext
1.
2.
3.
4.
adr.Open "select DISTINCT firma from docs", cnn, adOpenDynamic, adLockOptimistic
Do Until adr.EOF
Combo6.AddItem adr.Fields("firma")
adr.MoveNext
Loop

Всем кто откликнулся - огромное спасибо! :)
...
Рейтинг: 0 / 0
Объект Combo и ввод с клавиатуры.
    #34562436
JaneDoe
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ну да...
еще и
loop
в конце забыл ;)
...
Рейтинг: 0 / 0
Объект Combo и ввод с клавиатуры.
    #34562759
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну главное чтоб на пользу пошло! :)
...
Рейтинг: 0 / 0
16 сообщений из 16, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Объект Combo и ввод с клавиатуры.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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