powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ListBox and select
3 сообщений из 3, страница 1 из 1
ListBox and select
    #34386246
МашкоБ.В.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Возникла такая проблема, выбрать записи в listbox и использовать их в условии where при select.
При выборе одной записи , все нормально. НО нужно выбрать несколько записей. В ListBox за это отвечает свойство MiltiSelect. Но как запомнить выбранные записи,я думаю записать их в массив,но как записать сохраненные данные в массив и как использовать массив в select(может данные массива преписать во временную таблицу, а её уже использовать в select). Может кто-то делал что-то похожее. Как кто решал эту проблему.
...
Рейтинг: 0 / 0
ListBox and select
    #34386458
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
>Как кто решал эту проблему
Делал GRID добавлял в него стобец с чекбоксами и по клику по чекбоксу или запоминал в масив, или в другой курсов, или просто прописывал нужным значением поле источника GRID-а
...
Рейтинг: 0 / 0
ListBox and select
    #34386478
-dc-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Можно так:
Вначале перебираешь все элементы списка, те, которые выбраны, записываешь их куда-нить в переменную или массив.
Код: plaintext
1.
2.
3.
4.
5.
FOR nCnt =  1  TO ThisForm.lstListBox1.ListCount
      IF ThisForm.lstListBox1.Selected(nCnt)  && Is item selected?
         && сохранить куда нибудь эти значения - ThisForm.lstListBox1.List(nCnt)
      ENDIF
ENDFOR
Формируешь строку вида:
Код: plaintext
1.
sWhere="WHERE"+a+"="+b+"AND"+"c"+"="+"d" && и т.д. где a,c-поля, b,d-наши значения, напр...
Пишешь сам запрос:
Код: plaintext
1.
sQue="SELECT x,y,z FROM q "+sWhere+" INTO CURSOR cur1"
Выполняешь:
Код: plaintext
&sQue
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ListBox and select
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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