ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как убрать повторяющиеся записи при связи один ко многим в объекте combobox
5 сообщений из 5, страница 1 из 1
как убрать повторяющиеся записи при связи один ко многим в объекте combobox
    #37154690
YurijAnt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YurijAnt
Гость
Есть два combobox объекта в одном название подразделений в другом название участков.
Устанавливаю связь между ними один ко многим, чтобы каждому подразделению из combobox1
соответствовали участки в combobox2.
ПРОБЛЕМА!!!
В combobox1 подразделения повторяются столько раз сколько существует участков ему соответствующих.
Как сделать чтобы подразделения не повторялись?
...
Рейтинг: 0 / 0
09.03.2011, 09:58
| Ответить | Цитировать | Написать  
как убрать повторяющиеся записи при связи один ко многим в объекте combobox
    #37155735
igorbik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igorbik
Участник
YurijAnt, придется прислать сюда ту самую форму с комбобоксами и таблицы к форме, иначе непонятки выходят, отчего это первый комбо "размножается".
...
Рейтинг: 0 / 0
09.03.2011, 15:32
| Ответить | Цитировать | Написать  
как убрать повторяющиеся записи при связи один ко многим в объекте combobox
    #37159793
YurijAnt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YurijAnt
Гость
Объект Combo1: RowSource=Org.Nam (где Org база подразделений, а Nam-наименование подразделения), RowSourceType=Field
Объект Combo2: RowSource=Res.Nam (где Res база участков, а Nam-наименование участка), RowSourceType=Field
Обе базы связаны друг с другом по полю <код> тип связи: один ко многим
...
Рейтинг: 0 / 0
11.03.2011, 15:00
| Ответить | Цитировать | Написать  
как убрать повторяющиеся записи при связи один ко многим в объекте combobox
    #37159955
LUCIAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LUCIAN
Гость
YurijAnt,

На форме определяем обьекты combo1 и combo2 :
Код: plaintext
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.
	ADD OBJECT combo1 AS combobox WITH ;
		BoundColumn =  2 , ;
		RowSourceType =  6 , ;
		RowSource = "CEXA.NAM,ID_CEX", ;
		Value =  0 , ;
		Height =  24 , ;
		Left =  48 , ;
		Top =  12 , ;
		Width =  204 , ;
		BoundTo = .T., ;
		Name = "Combo1"

	PROCEDURE combo1.Init
		SELECT  0 
		CREATE CURSOR CEXA (ID_CEX I( 4 ),NAM C( 40 ))
		INSERT INTO CEXA (ID_CEX,NAM) VALUES ( 1 ,'МЕХАНИЧЕЧКИЙ')
		INSERT INTO CEXA (ID_CEX,NAM) VALUES ( 2 ,'ИНСТРУМЕНТАЛЬНЫЙ')
		GO TOP
		THIS.ListIndex= 1 
		THIS.VALID
	ENDPROC


	PROCEDURE combo1.Valid
		ThisForm.Combo2.Requery
		ThisForm.Combo2.ListIndex= 1 
		ThisForm.Combo2.REFRESH
	ENDPROC


Код: plaintext
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.
	ADD OBJECT combo2 AS combobox WITH ;
		BoundColumn =  2 , ;
		RowSourceType =  3 , ;
		RowSource = "SELECT NAM,ID_UCH FROM UCH WHERE ID_CEX = CEXA.ID_CEX  INTO CURSOR CUCH", ;
		Height =  24 , ;
		Left =  324 , ;
		Top =  12 , ;
		Width =  216 , ;
		BoundTo = .T., ;
		Name = "Combo2"

	PROCEDURE combo1.Valid
		ThisForm.Combo2.Requery
		ThisForm.Combo2.ListIndex= 1 
		ThisForm.Combo2.REFRESH
	ENDPROC


	PROCEDURE combo2.Init
		SELECT  0 
		CREATE CURSOR UCH (ID_UCH I( 4 ) AUTOINC,ID_CEX I( 4 ),NAM C( 40 ))
		INSERT INTO UCH (ID_CEX,NAM) VALUES ( 1 ,'УЧАСТОК 1 МЕХАНИЧЕЧКИЙ')
		INSERT INTO UCH (ID_CEX,NAM) VALUES ( 2 ,'УЧАСТОК 1 ИНСТРУМЕНТАЛЬНЫЙ')
		INSERT INTO UCH (ID_CEX,NAM) VALUES ( 1 ,'УЧАСТОК 2 МЕХАНИЧЕЧКИЙ')
		INSERT INTO UCH (ID_CEX,NAM) VALUES ( 2 ,'УЧАСТОК 2 ИНСТРУМЕНТАЛЬНЫЙ')
	ENDPROC
...
Рейтинг: 0 / 0
11.03.2011, 15:47
| Ответить | Цитировать | Написать  
как убрать повторяющиеся записи при связи один ко многим в объекте combobox
    #37159974
LUCIAN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LUCIAN
Гость
LUCIAN,

У combo2 :
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
	ADD OBJECT combo2 AS combobox WITH ;
		BoundColumn =  2 , ;
		RowSourceType =  3 , ;
		RowSource = "SELECT NAM,ID_UCH FROM UCH WHERE ID_CEX = CEXA.ID_CEX  INTO CURSOR CUCH", ;
		Height =  24 , ;
		Left =  324 , ;
		Top =  12 , ;
		Width =  216 , ;
		BoundTo = .T., ;
		Name = "Combo2"


	PROCEDURE combo2.Init
		SELECT  0 
		CREATE CURSOR UCH (ID_UCH I( 4 ) AUTOINC,ID_CEX I( 4 ),NAM C( 40 ))
		INSERT INTO UCH (ID_CEX,NAM) VALUES ( 1 ,'УЧАСТОК 1 МЕХАНИЧЕЧКИЙ')
		INSERT INTO UCH (ID_CEX,NAM) VALUES ( 2 ,'УЧАСТОК 1 ИНСТРУМЕНТАЛЬНЫЙ')
		INSERT INTO UCH (ID_CEX,NAM) VALUES ( 1 ,'УЧАСТОК 2 МЕХАНИЧЕЧКИЙ')
		INSERT INTO UCH (ID_CEX,NAM) VALUES ( 2 ,'УЧАСТОК 2 ИНСТРУМЕНТАЛЬНЫЙ')
	ENDPROC
...
Рейтинг: 0 / 0
11.03.2011, 15:56
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как убрать повторяющиеся записи при связи один ко многим в объекте combobox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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