как убрать повторяющиеся записи при связи один ко многим в объекте combobox / FoxPro, Visual FoxPro

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

Гость

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

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

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

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как убрать повторяющиеся записи при связи один ко многим в объекте combobox

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

как убрать повторяющиеся записи при связи один ко многим в объекте combobox

#37154690

YurijAnt

Гость

Есть два combobox объекта в одном название подразделений в другом название участков.
Устанавливаю связь между ними один ко многим, чтобы каждому подразделению из combobox1
соответствовали участки в combobox2.
ПРОБЛЕМА!!!
В combobox1 подразделения повторяются столько раз сколько существует участков ему соответствующих.
Как сделать чтобы подразделения не повторялись?

...

Рейтинг:

0 / 0

09.03.2011, 09:58

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

как убрать повторяющиеся записи при связи один ко многим в объекте combobox

#37155735

igorbik

Участник

Откуда: Мск

Сообщения: 585

Рейтинг: 0 / 0

YurijAnt, придется прислать сюда ту самую форму с комбобоксами и таблицы к форме, иначе непонятки выходят, отчего это первый комбо "размножается".

...

Рейтинг:

0 / 0

09.03.2011, 15:32

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

как убрать повторяющиеся записи при связи один ко многим в объекте combobox

#37159793

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

Гость

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,

У 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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?fid=41&msg=37159955&tid=1584496]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	47ms
get topic data:	9ms
get forum data:	2ms
get page messages:	42ms
get tp. blocked users:	1ms
others:	17ms

total:	150ms