Установка начального значения ComboBox, источник данных курсор / FoxPro, Visual FoxPro

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Установка начального значения ComboBox, источник данных курсор

6 сообщений из 6, страница 1 из 1

Установка начального значения ComboBox, источник данных курсор

#39315465

faustgreen

Участник

Сообщения: 575

Рейтинг: 0 / 0

Имеется ComboBox со следующими свойствами:

Код: sql

1.
2.
3.
4.

1). BoundColumn = 2
2). BoundTo = .T.
3). RowSource = lcAlias
4). RowSourceType = 2 (Alias)

В качестве источника данных используется курсор (формируется в методе load формы, на которой размещен ComboBox):

Код: sql

SELECT name, code FROM source_table INTO CURSOR lcAlias

, где типы полей

Код: sql

name c(60), code n(4)

.

После запуска формы, ComboBox содержит нужный список значений, но не отображает начальное значение. Пробую его установить:

Код: sql

1.
2.

lnInitValueForCom1 = VAL(lcCode)
thisform.pageframe1.page1.combo1.Value = lnInitValueForCom1

, где

Код: sql

lcCode (с(4))- параметр переданный в форму, и соответствующий одному из значений списка.

Итог - не работает. При этом команда

Код: sql

messagebox(lnInitValueForCom1)

отображает например значение 1230 (и тип "n"), но если заменить на

Код: sql

lnInitValueForCom1 = 1230

, то ComboBox отображает нужное значение при старте формы.

Почему не работает отображение начального значения, когда переменная lnInitValueForCom1 задана как VAL(lcCode)?

...

Рейтинг:

0 / 0

26.09.2016, 11:47

| Ответить | Цитировать | Написать

Установка начального значения ComboBox, источник данных курсор

#39315470

Dima T

Участник

Сообщения: 15 530

Рейтинг: 0 / 0

Код: sql

...combo1.DisplayValue = ...

...

Рейтинг:

0 / 0

26.09.2016, 11:55

| Ответить | Цитировать | Написать

Установка начального значения ComboBox, источник данных курсор

#39315578

faustgreen

Участник

Сообщения: 575

Рейтинг: 0 / 0

При текущих настройках у меня свойство DisplayValue вообще не изменяется.

...

Рейтинг:

0 / 0

26.09.2016, 13:30

| Ответить | Цитировать | Написать

Установка начального значения ComboBox, источник данных курсор

#39315626

faustgreen

Участник

Сообщения: 575

Рейтинг: 0 / 0

Вроде разобрался:

Код: sql

1.
2.
3.
4.
5.
6.

SELECT lcAlias
GO TOP IN lcAlias
LOCATE FOR lcAlias.code = VAL(lcCode)

thisform.pageframe1.page1.combo1.Value = lnInitValueForCom1
thisform.pageframe1.page1.combo1.DisplayValue = lcAlias.name

Так как источник данных курсор, то указатель в нем должен быть установлен на соответствующую запись. Добавил в код переход на нужную запись и установил свойство DisplayValue.

...

Рейтинг:

0 / 0

26.09.2016, 14:31

| Ответить | Цитировать | Написать

Установка начального значения ComboBox, источник данных курсор

#39315839

правильный проходящий.

Гость

faustgreen

Код: sql

1.
2.
3.
4.

...
GO TOP IN lcAlias
LOCATE FOR lcAlias.code = VAL(lcCode)
...

Не объясните назначение первой из процитированной строк в свете следования за ней второй строки?

...

Рейтинг:

0 / 0

26.09.2016, 17:32

| Ответить | Цитировать | Написать

Установка начального значения ComboBox, источник данных курсор

#39315853

faustgreen

Участник

Сообщения: 575

Рейтинг: 0 / 0

Да, тут лишняя, мой косяк.

...

Рейтинг:

0 / 0

26.09.2016, 17:47

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=39315839&tid=1582055]:	0ms
get settings:	10ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	61ms
get topic data:	10ms
get forum data:	3ms
get page messages:	47ms
get tp. blocked users:	1ms
others:	278ms

total:	428ms