powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Подскажите по заполнению ComboBox
9 сообщений из 9, страница 1 из 1
Подскажите по заполнению ComboBox
    #34604132
lexusXXX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На форме есть комбобокс, есть таблица с данными, мне нужно что б данные загрузились в комбо
я делаю так:

USE homepath1+'tab3.dbf' IN 2 SHARED
WAIT 'Подключение справочника ' WINDOW NOWAIT
SELECT RTRIM(info) FROM tab3 INTO ARRAY post
FOR I=1 TO RECCOUNT()
THISFORM.PAGEFRAME1.PAGE1.COMBO3.ADDITEM(post )
ENDFOR
THISFORM.PAGEFRAME1.PAGE1.COMBO3.Value = post[1]
USE IN 2
WAIT CLEAR

Мне нужно чтоб таблица открылась с нее данные залились в комбо и таблицу после закрыть.
Здесь все работает, но только тормазнуто, можно ли это как нибудь оптимизировать.

Всем кто подскажет заранее спасибо!!!
...
Рейтинг: 0 / 0
Подскажите по заполнению ComboBox
    #34604323
i__one
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
зачем городить такой огород. попробу так (код не проверял, но в этом направлении):

THISFORM.PAGEFRAME1.PAGE1.COMBO3.RowSourceType=3
THISFORM.PAGEFRAME1.PAGE1.COMBO3.RowSource='SELECT RTRIM(info) FROM tab3 INTO CURSOR cur3'
...
Рейтинг: 0 / 0
Подскажите по заполнению ComboBox
    #34604389
lexusXXX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ошибку выдает.

Cannot access the selected table.SELECT RTRIM(info) FROM tab3 INTO CURSOR QQQ.
...
Рейтинг: 0 / 0
Подскажите по заполнению ComboBox
    #34604445
lexusXXX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот весь код в событии init комбобокса

Код: plaintext
1.
2.
3.
4.
5.
USE homepath1+'tab3.dbf' IN  2  SHARED 
WAIT	'Подключение справочника "Тип протокола"' WINDOW  NOWAIT 
THISFORM.PAGEFRAME1.PAGE1.COMBO3.RowSourceType =  3 
THISFORM.PAGEFRAME1.PAGE1.COMBO3.RowSource='SELECT RTRIM(info) FROM tab3 INTO CURSOR QQQ'
USE IN  2 

выдает ошибку что здесь не так?
...
Рейтинг: 0 / 0
Подскажите по заполнению ComboBox
    #34604510
lexusXXX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Все разобрался с этим, все гуд. i__one спасибо!
...
Рейтинг: 0 / 0
Подскажите по заполнению ComboBox
    #34604613
lexusXXX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А вот еще такой вопрос, если скажем у меня на форме PAGEFRAME с тремя закладками и на каждой по пять комбобоксов, т.е. всего 15 комбов. Так вот, что лучше, чтобы было открыто 15 курсоров на каждый комбо или добавить в каждый комбо с помщью ADDITEM данные и при этом ни каких курсоров и таблиц открыто не будет.
...
Рейтинг: 0 / 0
Подскажите по заполнению ComboBox
    #34605274
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так вот, что лучше, чтобы было открыто 15 курсоров на каждый комбо или добавить в каждый комбо с помщью ADDITEM данные и при этом ни каких курсоров и таблиц открыто не будет.
А что, есть проблемы с нехваткой свободных рабочих областей? Вроде 250 хватало для всех случаев... Пятнадцатью больше, пятнадцатью меньше...
Просто закрывай их акуратно после выхода из формы и все
...
Рейтинг: 0 / 0
Подскажите по заполнению ComboBox
    #34606553
lexusXXX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
да меня больше интересовало что больше памяти отедает?
...
Рейтинг: 0 / 0
Подскажите по заполнению ComboBox
    #34606669
i__one
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ты же делал через AddItem в самом начале. И сам написал "Здесь все работает, но только тормазнуто, можно ли это как нибудь оптимизировать."
А в случае 15-ти комбобоксов еще медленныейц работать будет. Думаю лучше через курсоры. или через строку значений:

THISFORM.PAGEFRAME1.PAGE1.COMBO3.RowSourceType=1
THISFORM.PAGEFRAME1.PAGE1.COMBO3.RowSource='значение1,значение2,значение3,значение4'

Просто генери строку нужных значений и подставляй ее в ка-ве RowSource для COMBO3 (не знаю правда будет ли это быстрее чем курсоры. Посмотри сам)
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Подскажите по заполнению ComboBox
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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