powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / List box
9 сообщений из 9, страница 1 из 1
List box
    #33961504
dj_raven
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Denj dobrij. Jestj List Box control na forme, svjazannij s tablicej. V njem aktivirovan multiselect. V source tablice sledujuschije polja. id: int, name: char(40), adress: char(40). polja name i adress otobrazhajutsja v List Box, pole id net. Mozhno li kak nibudj poluchitj znachenija polej id dlja vibrannih zabpisej v ListBox?
...
Рейтинг: 0 / 0
List box
    #33961537
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Добавь в источник листбокс ID и установи для его колонки ширину = 0
...
Рейтинг: 0 / 0
List box
    #33961559
dj_raven
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
a spomoschju kakoj peremennoj mozhno budet poluchitj znachenije? S pomoschju ItemData ne poluchajetsja. A s pomoschju Value, naskolko ja ponjal iz helpa, ne vitaschitj nuzhnoje znachenije
...
Рейтинг: 0 / 0
List box
    #33961686
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Какой столбец ты укажешь в BoundColumn, тот и будет в Value храниться
...
Рейтинг: 0 / 0
List box
    #33961720
dj_raven
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Problemma v tom chto Value ukazivajet tolko znachenije poslednej vibrannoj mnoj zapisi, a mne nuzhno id ot vseh zapisej poluchitj, dlja etoj celi bil napisan sledujuschij kod:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
LOCAL ARRAY temp_arr[THISFORM.list1.ListCount]
LOCAL y
y= 1 
IF THISFORM.check3.Value= 1 
	THISFORM.list1.BoundColumn= 1 
	FOR x= 1  TO THISFORM.list1.ListCount
 		IF THISFORM.list1.Selected(x)
	 		temp_arr[y]=THISFORM.list1.Value(x)
	 		y=y+ 1 
	 	ENDIF 
	ENDFOR 


Bili vibrani zapisi s id, 1,3,5,7,9 i 11. Posle ispolnenija koda v temp_arr ja poluchaju v 6 pervih elementah chislo 11.
...
Рейтинг: 0 / 0
List box
    #33961882
dj_raven
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
tak, so znachenijami ja razobralsja, teperj filtr nado postavitj. Napisal takoj kod
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
LOCAL ARRAY temp_arr[THISFORM.list1.ListCount]
LOCAL y
y= 1 
IF THISFORM.check3.Value= 1 
	FOR x= 1  TO THISFORM.list1.ListCount
 		IF THISFORM.list1.Selected(x)
	 		temp_arr[y]=THISFORM.list1.List[x, 1 ]
	 		y=y+ 1 
	 	ENDIF 
	ENDFOR 
	SET FILTER TO data_overall.hall_id IN temp_Arr	
endif
pishet the alias not faoun na set filter to. A mozhno eto kak-nibudj sdelatj ne pribegaja k alias a tak i ostavitj s massivom?
...
Рейтинг: 0 / 0
List box
    #33961916
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
SET FILTER TO ascan(temp_Arr,data_overall.hall_id)<>0
...
Рейтинг: 0 / 0
List box
    #33961959
dj_raven
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
spasibo, a cherez tekstovuju peremennuju eto mozhno kak-nibudj peredatj k set filter?
naprimer tak (variant ne srabativajet):
Код: plaintext
1.
2.
	filter_str="ascan(temp_Arr,data_overall.hall_id)<>0"
SET FILTER TO @filter_str
...
Рейтинг: 0 / 0
List box
    #33962021
dj_raven
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
vsje, spasibo, bolshe ne nado, sam razobralsja :)
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / List box
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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