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

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

Лучше всего формировать предварительно курсор.
...
Рейтинг: 0 / 0
Заполнить Grid значениями из справочника
    #37776222
LUCIAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Рубей,
Использовать в 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
Заполнить Grid значениями из справочника
    #37776590
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Рубей,
вот самый учебный примерчик (см. файл)
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Заполнить Grid значениями из справочника
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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