Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ListBox and select / 3 сообщений из 3, страница 1 из 1
13.03.2007, 10:34
    #34386246
МашкоБ.В.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListBox and select
Возникла такая проблема, выбрать записи в listbox и использовать их в условии where при select.
При выборе одной записи , все нормально. НО нужно выбрать несколько записей. В ListBox за это отвечает свойство MiltiSelect. Но как запомнить выбранные записи,я думаю записать их в массив,но как записать сохраненные данные в массив и как использовать массив в select(может данные массива преписать во временную таблицу, а её уже использовать в select). Может кто-то делал что-то похожее. Как кто решал эту проблему.
...
Рейтинг: 0 / 0
13.03.2007, 11:25
    #34386458
Burn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListBox and select
>Как кто решал эту проблему
Делал GRID добавлял в него стобец с чекбоксами и по клику по чекбоксу или запоминал в масив, или в другой курсов, или просто прописывал нужным значением поле источника GRID-а
...
Рейтинг: 0 / 0
13.03.2007, 11:30
    #34386478
-dc-
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ListBox and select
Можно так:
Вначале перебираешь все элементы списка, те, которые выбраны, записываешь их куда-нить в переменную или массив.
Код: 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
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ListBox and select / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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