Гость
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Заполнить Grid значениями из справочника / 6 сообщений из 6, страница 1 из 1
27.04.2012, 17:43
    #37774884
Рубей
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнить Grid значениями из справочника
Делаю учебные примерчики и столкнулся с проблемой заполнения одной из колонок Grid значениями из справочника. К Grid подключена таблица PERSONAL , в которой одно из значений - это код должности, а в справочнике должностей STUFF к этим кодам привязаны
наименования должностей. Как теперь сделать, чтобы Grid на форме показал не коды а их значения из справочника STUFF.
...
Рейтинг: 0 / 0
27.04.2012, 18:04
    #37774937
Penner
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнить Grid значениями из справочника
ControlSource='Code2Stuff(tabele.code)'

ну и функцию Code2Stuff написать
...
Рейтинг: 0 / 0
27.04.2012, 18:09
    #37774952
VictorSK
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнить Grid значениями из справочника
Посмотрите в сторону
Код: sql
1.
SET RELATION
...
Рейтинг: 0 / 0
28.04.2012, 06:10
    #37775356
alextashk
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнить Grid значениями из справочника
Рубей,

Лучше всего формировать предварительно курсор.
...
Рейтинг: 0 / 0
28.04.2012, 16:52
    #37776222
LUCIAN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнить Grid значениями из справочника
Рубей,
Использовать в Column Grid вместо text combox:

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
	ADD OBJECT form1.pageframe1.page1.grdl_put AS grid WITH ;
		ColumnCount = 9, ;
		DeleteMark = .F., ;
		HeaderHeight = 40, ;
		Height = 269, ;
		Left = -3, ;
		Panel = 1, ;
		RecordSource = "l_put", ;
		RecordSourceType = 1, ;
		RowHeight = 23, ;
		Top = 14, ;
		Width = 744, ;
		Name = "grdL_put", ;
		Column1.ControlSource = "l_put.n_put", ;
	
		Column4.ColumnOrder = 3, ;
		Column4.ControlSource = "l_put.koda", ;
		Column4.Width = 146, ;
		Column4.Sparse = .F., ;
		Column4.Name = "Column4", ;
		Column5.ControlSource = "l_put.tn_wod", ;
		Column5.Width = 124, ;
		Column5.Sparse = .F., ;
		Column5.Name = "Column5", ;



в Column4 и Column5 удаляем Text и вставляем combobox:

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
	ADD OBJECT form1.pageframe1.page1.grdl_put.column4.header1 AS header WITH ;
		FontSize = 10, ;
		Alignment = 2, ;
		Caption = "Автомобиль", ;
		Name = "Header1"


	ADD OBJECT form1.pageframe1.page1.grdl_put.column4.combo1 AS combobox WITH ;
		BoundColumn = 2, ;
		ColumnCount = 2, ;
		ColumnWidths = "233,30", ;
		RowSourceType = 3, ;
		RowSource = ['SELECT NAM,PADR(ID_AWT,3) AS KODA,N_LICENZ FROM SP_AWT WHERE SP_AWT.PRAW IN ("1","3","4") ORDER BY NAM INTO CURSOR CAWT'], ;
		ControlSource = "P_LIST.KODA", ;
		Height = 24, ;
		Left = 296, ;
		Style = 2, ;
		Top = 35, ;
		Width = 263, ;
		Name = "Combo1"


	ADD OBJECT form1.pageframe1.page1.grdl_put.column5.header1 AS header WITH ;
		FontSize = 10, ;
		Alignment = 2, ;
		Caption = "Водитель", ;
		Name = "Header1"


	ADD OBJECT form1.pageframe1.page1.grdl_put.column5.combo1 AS combobox WITH ;
		BoundColumn = 2, ;
		ColumnCount = 2, ;
		ColumnWidths = "120,36", ;
		RowSourceType = 3, ;
		RowSource = "SELECT UFIO,TN FROM SOTRUD ORDER BY UFIO INTO CURSOR CWOD", ;
		ControlSource = "P_LIST.TN_WOD", ;
		Height = 24, ;
		Left = 108, ;
		Style = 2, ;
		Top = 36, ;
		Width = 156, ;
		Name = "Combo1"
...
Рейтинг: 0 / 0
29.04.2012, 07:44
    #37776590
Jonny540
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заполнить Grid значениями из справочника
Рубей,
вот самый учебный примерчик (см. файл)
...
Рейтинг: 0 / 0
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Заполнить Grid значениями из справочника / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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