Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Combobox... очередной вопрос / 7 сообщений из 7, страница 1 из 1
20.06.2012, 08:08
    #37845539
Хиль
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox... очередной вопрос
на форме есть комбо, его необходимо подключить к справочной таблице, которая включает в себя код и наименование. в комбо необходимо отобразить наименование, номер же соответвствующей записи необходимо записать в другую таблицу в соотв. поле.

Combo.RowSourceType = SqlStatement
Combo.RowSource = select kod_otd, otdel from otdel into cursor otd order by kod_otd
Combo.BoundColumn = 2
Combo.BoundTo = .t.
Combo.ControlSource = gruppa.kod_otd

при запуске формы комбо просто не активен... в чем загвоздка?
...
Рейтинг: 0 / 0
20.06.2012, 08:58
    #37845582
Jonny540
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox... очередной вопрос
Хиль,
Хильна форме есть комбо, его необходимо подключить к справочной таблице, которая включает в себя код и наименование. в комбо необходимо отобразить наименование, номер же соответвствующей записи необходимо записать в другую таблицу в соотв. поле.

Combo.RowSourceType = SqlStatement
Combo.RowSource = select kod_otd, otdel from otdel into cursor otd order by kod_otd
Combo.BoundColumn = 2
Combo.BoundTo = .t.
Combo.ControlSource = gruppa.kod_otd

при запуске формы комбо просто не активен... в чем загвоздка?
"Я могла бы придумать и более запутанный способ, как это сделать,- с гордостью сказала Белая королева". (c) :)

Код: plsql
1.
2.
Combo.RowSourceType    = 6
Combo.RowSource        =  otdel.otdel

Далее в методе Click() Combo прописываете запись номера соответствующей записи в другую таблицу в соотв. поле.
...
Рейтинг: 0 / 0
20.06.2012, 09:25
    #37845632
Хиль
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox... очередной вопрос
Jonny540,

оставила только

Combo.ControlSource = gruppa.kod_otd
Combo.RowSourceType = 6
Combo.RowSource = otdel.otdel

в комбо отображаются отделы, но после выбора нужного пункта комбо становится неактивным ((
...
Рейтинг: 0 / 0
20.06.2012, 09:27
    #37845638
Jonny540
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox... очередной вопрос
ХильCombo.ControlSource = gruppa.kod_otdЭто тоже уберите.
...
Рейтинг: 0 / 0
20.06.2012, 10:36
    #37845807
Хиль
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox... очередной вопрос
Jonny540,

так мне надо чтобы в таблицу gruppa записался номер выбранного отдела=)
...
Рейтинг: 0 / 0
20.06.2012, 10:54
    #37845858
ВладимирМ
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox... очередной вопрос
BoundColumn - это из какого столбца выпадающего списка надо взять значение для записи.
ControlSource - это куда записать выбранное значение

У Вас список формируется командой Select-SQL. Первый столбец - kod_otd, второй столбец - otdel

В соответствии с Вашими настройками, Вы пытаетесь записать значение поля otdel из выборки в поле gruppa.kod_otd. Могу предположить, что это не совсем то, что Вы хотели

Вам надо либо поменять местами поля в выборке, либо оставить значение BoundColumn = 1

======================================

Активность объекта ComboBox зависит от того, на какой записи стоит указать в таблице gruppa. В той таблице, поле которой указано в ControlSource. Если указатель находится в положении EOF() = .T., то редактивроание такой записи невозможно. Как следствие, все объекты, предназначенные для изменения данных текущей записи будут не активны.
...
Рейтинг: 0 / 0
20.06.2012, 11:53
    #37846028
Jonny540
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Combobox... очередной вопрос
ХильВ методе Click() Combo прописываете запись номера соответствующей записи в другую таблицу в соотв. поле.
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Combobox... очередной вопрос / 7 сообщений из 7, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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