Снова listbox, множественный выбор / FoxPro, Visual FoxPro

ReSQL.ru

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

Гость

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

Новые сообщения | Избранное

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

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Снова listbox, множественный выбор

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

Снова listbox, множественный выбор

#35656167

densit

Гость

Есть таблица, из неё выводятся данные в listbox. Как сделать возможность множественного выбора из него и передачи выбранного в другую таблицу. Поиском пользовался, мб плохо, но не нашёл ничего более менее....В хелпе есть пример множественного выбора, но как им пользоваться не понял...Кстати может есть способ другой для решения этой проблемы....

...

Рейтинг:

0 / 0

15.11.2008, 22:27

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

Снова listbox, множественный выбор

#35656182

FFFFFFFF

Участник

Сообщения: 77

Рейтинг: 0 / 0

Посмотрите хотя бы в Solutions-Listbox "Multiselect items in a Listbox"
в стандартной поставке FoxPro.

...

Рейтинг:

0 / 0

15.11.2008, 22:57

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

Снова listbox, множественный выбор

#35656234

densit

Гость

Разбираюсь
Вот код, с помощью которого отыскиваем помеченные записи

Код: plaintext

1.
2.
3.
4.
5.
6.

FOR nCnt =  1  TO ThisForm.List1.ListCount
      IF ThisForm.List1.Selected(nCnt)
         ThisForm.List1.List(nCnt)
         /*по сути здесь надо записать выделенную запись в массив или курсор, чтобы потом записать в другую таблицу, как это сделать я не знаю*/
      ENDIF
ENDFOR

Как быть?

...

Рейтинг:

0 / 0

16.11.2008, 00:01

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

Снова listbox, множественный выбор

#35656302

Рома Б.

Гость

На всякий случай, ThisForm.List1.List - в общем случае двумерный массив (если listbox настроен на отображение 2-х или больше колонок). Второй индекс - номер колонки.

Всё упирается, я так понимаю, в незнание синтаксиса.

Через массив :

LOCAL i, lnSelCount
lnSelCount = 0
FOR i = 1 TO ThisForm.List1.ListCount
IF ThisForm.List1.Selected (i) THEN
lnSelCount = lnSelCount + 1
ENDIF
NEXT

IF lnSelCount = 0 THEN
MessageBox ('Ничё ж не выбрано!', 48, 'Внимание!')
RETURN
ENDIF

LOCAL ARRAY lvaArray1 (lnSelCount)
&& или PUBLIC ARRAY lvaArray1 (lnSelCount)

LOCAL i2
i2 = 0
FOR i = 1 TO ThisForm.List1.ListCount
IF ThisForm.List1.Selected (i) THEN
i2 = i2 + 1
lvaArray1 [i2] = ThisForm.List1.List (i)
ENDIF
NEXT

Через курсор

CREATE CURSOR crCursor1 (Field1 N (5))
&& Разумеется, тип поля (полей) должен соответствовать Вашему контексту.

В цикле:

INSERT INTO crCursor1 (Field1) VALUES (ThisForm.List1.List (i))

...

Рейтинг:

0 / 0

16.11.2008, 02:37

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

Снова listbox, множественный выбор

#35656303

ВладимирМ

Участник

Откуда: г. Москва

Сообщения: 7 937

Рейтинг: 0 / 0

Физически, то, что отображено в ListBox это уже не сами записи таблицы, а некоторый особый массив символьных (и только символьных !) данных.

Обратится напрямую к этому массиву можно через специфическое свойство List. Как и показано в примере.

Код: plaintext

ThisForm.List1.List(nCnt)

Этот массив может быть как одномерным, так и двумерным. Соответственно, номер строки этого массива совпадает с индексом элемента ListBox, а номер столбца, с номером столбца ListBox.

Возвращаясь к примеру, он предполагает, что вы прочитали значение из первого столбца и строки с номером nCnt. И это значение имеет символьный и только символьный тип данных.

Как следствие, получить список значений очень просто

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

create cursor curSelected (selValue C( 10 ))
FOR nCnt =  1  TO ThisForm.List1.ListCount
      IF ThisForm.List1.Selected(nCnt)
         INSERT INTO curSelected (selValues) VALUES (ThisForm.List1.List(nCnt))
      ENDIF
ENDFOR 

* Просмотр выбранных значений
select curSelected
browse nowait

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

Как ещё один вариант организации множественного выбора можно использовать Grid с дополнительным столбцом с объектами CheckBox.

...

Рейтинг:

0 / 0

16.11.2008, 02:37

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

Снова listbox, множественный выбор

#35656437

densit

Гость

Более менее стало понятно, спасибо.
Тогда ещё вопрос, предположим запоминаю выборку в массив и по кнопке добавиь из формы добавляю данные в другую таблицу.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

local i, lcValue
lcValue = ''
with Thisform.List1
     for i =  1  to .ListCount
          if .Selected(m.lnIndex)
              lcValue = m.lcValue + .List(m.lnIndex)
          endif
     endfor   
ENDWITH
replace mytable.k with m.lcValue

Теперь интересно, как прочитать значения из поля таблицы снова в listbox, т.е. чтобы выделились именно те, которые прежде были выбраны и сохранены

...

Рейтинг:

0 / 0

16.11.2008, 13:32

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

Снова listbox, множественный выбор

#35656440

densit

Гость

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

local i, lcValue
lcValue = ''
with Thisform.List1
     for i =  1  to .ListCount
          if .Selected(m.i)
              lcValue = m.lcValue + .List(m.i)
          endif
     endfor   
ENDWITH
replace mytable.k with m.lcValue

...

Рейтинг:

0 / 0

16.11.2008, 13:34

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

Снова listbox, множественный выбор

#35656453

homik

Участник

Сообщения: 147

Рейтинг: 0 / 0

[quote] Теперь интересно, как прочитать значения из поля таблицы снова в listbox, т.е. чтобы выделились именно те, которые прежде были выбраны и сохранены [/quote]
Здесь надо задатся вопросом: это необходимо в данной сессии или Вы в принципе хотите запомнить те элементы, которые выбраны в последней сессии.
А первом случае достаточно не удалять массив, в котором записаны выбранные элементы.
Во втором случае придется :
- или ставить флаг (скажем дополнительное поле типа L)
- или запоминать дату и время добавления (поле типа DateTime)
- или создавать дополнительную таблицу, в которой хранить элементы, добавленные последними.

...

Рейтинг:

0 / 0

16.11.2008, 14:07

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

Снова listbox, множественный выбор

#35656520

densit

Гость

В таблице Mytable в одном из полей хранятся те элементы, которые были выбраны, вот как сделать их чтение и в соответствие вернуть выделенные элементы в listbox?

...

Рейтинг:

0 / 0

16.11.2008, 16:08

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

Снова listbox, множественный выбор

#35662037

densit

Гость

Вот заинтересовал ещё один вопрос. Пытаюсь програмно выделить несколько записей в листбоксе, если значения в него просто добавлены всё хорошо - работает, а если из таблицы, то не работает......

...

Рейтинг:

0 / 0

19.11.2008, 01:20

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

Снова listbox, множественный выбор

#35663561

ВладимирМ

Участник

Откуда: г. Москва

Сообщения: 7 937

Рейтинг: 0 / 0

densitВот заинтересовал ещё один вопрос. Пытаюсь програмно выделить несколько записей в листбоксе, если значения в него просто добавлены всё хорошо - работает, а если из таблицы, то не работает......

Код: plaintext

ListBox.MultiSelect = .T.

Вы бы хотя бы пример из Help изучили. Что там и как делается.

...

Рейтинг:

0 / 0

19.11.2008, 15:28

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

Снова listbox, множественный выбор

#35663972

densit

Гость

ВладимирМdensitВот заинтересовал ещё один вопрос. Пытаюсь програмно выделить несколько записей в листбоксе, если значения в него просто добавлены всё хорошо - работает, а если из таблицы, то не работает......

Код: plaintext

ListBox.MultiSelect = .T.

Вы бы хотя бы пример из Help изучили. Что там и как делается.
Да внимательно вроде читал, вот если массив добавляю в листбокс работает, а если из таблицы не получается выделение, вот пример

...

Рейтинг:

0 / 0

19.11.2008, 17:41

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

Снова listbox, множественный выбор

#35664365

densit

Гость

Проблема решена, по ходу глюк vfp....решение здесь http://support.microsoft.com/kb/q134245/

...

Рейтинг:

0 / 0

19.11.2008, 23:29

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

Снова listbox, множественный выбор

#35664374

densit

Гость

Проблема решена, по ходу глюк vfp....решение здесь http://support.microsoft.com/kb/q134245/

...

Рейтинг:

0 / 0

19.11.2008, 23:38

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

Снова listbox, множественный выбор

#35666092

ВладимирМ

Участник

Откуда: г. Москва

Сообщения: 7 937

Рейтинг: 0 / 0

densitПроблема решена, по ходу глюк vfp....решение здесь http://support.microsoft.com/kb/q134245/
Какое отношение глюк от VFP3 (уже пофиксен в VFP5) имеет к данному вопросу? Или у вас именно VFP3?

Запустил ваш пример. Все нормально выбирается. VFP9

...

Рейтинг:

0 / 0

20.11.2008, 16:12

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

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

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Снова listbox, множественный выбор

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

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

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

start [/forum/topic.php?fid=41&msg=35656302&tid=1587056]:	0ms
get settings:	8ms
get forum list:	12ms
check forum access:	3ms
check topic access:	3ms
track hit:	70ms
get topic data:	10ms
get forum data:	2ms
get page messages:	51ms
get tp. blocked users:	2ms
others:	14ms

total:	175ms