Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как убрать повторяющиеся записи при связи один ко многим в объекте combobox / 5 сообщений из 5, страница 1 из 1
09.03.2011, 09:58
    #37154690
YurijAnt
YurijAnt
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как убрать повторяющиеся записи при связи один ко многим в объекте combobox
Есть два combobox объекта в одном название подразделений в другом название участков.
Устанавливаю связь между ними один ко многим, чтобы каждому подразделению из combobox1
соответствовали участки в combobox2.
ПРОБЛЕМА!!!
В combobox1 подразделения повторяются столько раз сколько существует участков ему соответствующих.
Как сделать чтобы подразделения не повторялись?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.03.2011, 15:32
    #37155735
igorbik
igorbik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как убрать повторяющиеся записи при связи один ко многим в объекте combobox
YurijAnt, придется прислать сюда ту самую форму с комбобоксами и таблицы к форме, иначе непонятки выходят, отчего это первый комбо "размножается".
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.03.2011, 15:00
    #37159793
YurijAnt
YurijAnt
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как убрать повторяющиеся записи при связи один ко многим в объекте combobox
Объект Combo1: RowSource=Org.Nam (где Org база подразделений, а Nam-наименование подразделения), RowSourceType=Field
Объект Combo2: RowSource=Res.Nam (где Res база участков, а Nam-наименование участка), RowSourceType=Field
Обе базы связаны друг с другом по полю <код> тип связи: один ко многим
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.03.2011, 15:47
    #37159955
LUCIAN
LUCIAN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как убрать повторяющиеся записи при связи один ко многим в объекте combobox
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:56
    #37159974
LUCIAN
LUCIAN
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
как убрать повторяющиеся записи при связи один ко многим в объекте combobox
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
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / как убрать повторяющиеся записи при связи один ко многим в объекте combobox / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 406ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1584496]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 34ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 283ms
total:  406ms
x
x
Закрыть


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