ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Осуществление поиска в уже найденном
8 сообщений из 8, страница 1 из 1
Осуществление поиска в уже найденном
    #33382725
genek84
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
genek84
Гость
Пожалуста посоветуйте, как наиболее просто можно осуществить поиск в уже найденном, с использованием интерфейса для определения параметров этого поиска. То есть осуществить поиск с добавленными условиями по сравнению с предыдущим поиском.

Я создал отчет со сложной структурой(данные из нескольких таблиц, отношение 1 ко многим), теперь перед его выводом согласно условиям, необходимо помещать в отчет только нужные данные.

Самое простое как я думал, наложить фильтры на таблицы:
IF Thisform.Check1.Value=1
SET FILTER TO (Организация.Название=RTRIM(Thisform.Text1.Value))
ENDIF
Но как к этой же таблице поставить еще один фильтр, сохранив предыдущий я не знаю.

Еще пробовал
REPORT FORM report_date.frx FOR BETWEEN(,,,)) PREVIEW
Но опять же как сюда добавить еще одно условие потом?

Желательно с помощью xBase (такое задание).
Пожалуста выручите цельным советом, примером или ссылкой.
Заранее большущее спасибо!
...
Рейтинг: 0 / 0
16.11.2005, 22:19
| Ответить | Цитировать | Написать  
Осуществление поиска в уже найденном
    #33382775
Urri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Urri
Участник
Например, так:

Код: plaintext
1.
2.
3.
4.
5.
6.
procedure addfilterexp
lparameter pcExp
if pcount()> 0  AND !empty(pcExp)
  local lcOldExp
  lcOldExp = SET('FILTER')
  set filter to (&lcOldExp) AND (&pcExp)
endif
...
Рейтинг: 0 / 0
16.11.2005, 23:45
| Ответить | Цитировать | Написать  
Осуществление поиска в уже найденном
    #33382778
Urri
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Urri
Участник
Т.е., корректнее, так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
procedure addfilterexp
lparameter pcExp
if pcount()> 0  AND !empty(pcExp)
  local lcOldExp
  lcOldExp = SET('FILTER')
  if not empty(lcOldExp)
    set filter to (&lcOldExp) AND (&pcExp)
  else
     set filter to (&pcExp)
  endif
endif
...
Рейтинг: 0 / 0
16.11.2005, 23:47
| Ответить | Цитировать | Написать  
Осуществление поиска в уже найденном
    #33382838
Igor Korolyov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Igor Korolyov
Участник
Hi genek84!

Взять FILTER(), к полученной строке дописать + " AND (новое_условие)".
Установить новый фильтр.

Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
17.11.2005, 02:00
| Ответить | Цитировать | Написать  
Осуществление поиска в уже найденном
    #33382889
genek84
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
genek84
Гость
[quot Igor Korolyov]

Я так изначально и хотел:
IF Thisform.Check1.Value=1
SET FILTER TO FILTER()+(Организация.Название=RTRIM(Thisform.Text1.Value))
ENDIF

Выдает:
Function argument value, type, or count is invalid

Что я делаю неправильно и как это можно исправить?
...
Рейтинг: 0 / 0
17.11.2005, 05:45
| Ответить | Цитировать | Написать  
Осуществление поиска в уже найденном
    #33382899
WORKSNS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WORKSNS
Участник
MacroVar=[SET FILTER TO]+ FILTER()+[ .and. ]+[Организация.Название=]+RTRIM(Thisform.Text1.Value))
&macrovar

или

=execscript([SET FILTER TO]+ FILTER()+[ .and. ]+[Организация.Название=]+RTRIM(Thisform.Text1.Value))
...
Рейтинг: 0 / 0
17.11.2005, 06:01
| Ответить | Цитировать | Написать  
Осуществление поиска в уже найденном
    #33385484
genek84
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
genek84
Гость
Подскажите как записи находящиеся в главной таблице сохранить (куда лучше не знаю, тоже посоветуйте), затем снять все фильтры для отображения всех записей дочерних таблиц, и установить чтоб в главной таблице был фильтр, который устанавливает отбор только ранее сохраненных записей главной таблицы.
Т.е. чтобы сохранились условия фильтра главной таблицы, а дочерние таблицы содержали все поля.
...
Рейтинг: 0 / 0
17.11.2005, 22:25
| Ответить | Цитировать | Написать  
Осуществление поиска в уже найденном
    #33394093
Фотография MaestroEv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
MaestroEv
Участник
Как-то решая подобную задачу (для ГАИ), я просто делал выборку на локальную машину по каждому уточнению... Главное правильно расставить вопросы.. Первые несколько - самые важные, чтобы уменьшить объем данных, а остальные (уже на локалке) можно сделать мягкими и пушистыми... и скорость нормальная и детализация фильтров...
...
Рейтинг: 0 / 0
23.11.2005, 11:11
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Осуществление поиска в уже найденном
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=290&tid=1592969]:
 0ms
get settings:
 9ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 65ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 41ms
get tp. blocked users:
 2ms
others: 204ms
total:  357ms
созд. / загр.: 357ms
x
x
Закрыть


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