powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Нужно отфильтровать таблицу.
4 сообщений из 4, страница 1 из 1
Нужно отфильтровать таблицу.
    #33870040
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть форма на которой в текстовые окошки вводятся ключевые значения. Некоторые окошки заполняются. Некоторые остаются пустыми. Я пыталась отфильтровать таблицу следующим образом:
IF NOT EMPTY(thisform.text1.Value)
SET FILTER TO thisform.text1.Value=n_ved IN reestr
ENDIF
IF NOT EMPTY(thisform.text2.Value)
SET FILTER TO val(thisform.text2.Value)=kod_atp IN reestr
ENDIF
thisform.grid1.RecordSource='reestr'
И, соответственно, выдать в грид уже отфильтрованную таблицу.
Но как выяснилось: первый фильтр прекрасно отрабатывает, второй тоже отрабатывает, но мне нужно чтобы второй фильтр накладывался уже на отфильтрованную первым фильтром таблицу.
...
Рейтинг: 0 / 0
Нужно отфильтровать таблицу.
    #33870078
Фотография Vladimir M Sklyar
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Стройте динамически условие фильтра, что типа этого

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
lcFilter = "SET FILTER TO "
IF NOT EMPTY(thisform.text1.Value)
     lcFilter = lcFilter + " thisform.text1.Value=n_ved"
ENDIF 
IF NOT EMPTY(thisform.text2.Value)
     lcFilter = lcFilter + "  AND val(thisform.text2.Value)=kod_atp"
ENDIF 
lcFilter = lcFilter + "IN reestr "
&lcFilter

или так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
lcFilter = ""
IF NOT EMPTY(thisform.text1.Value)
     lcFilter = "thisform.text1.Value=n_ved"
ENDIF 
IF NOT EMPTY(thisform.text2.Value)
     lcFilter = lcFilter + "  AND val(thisform.text2.Value)=kod_atp"
ENDIF 
SET FILTER TO (lcFilter) IN reestr  

Posted via ActualForum NNTP Server 1.3
...
Рейтинг: 0 / 0
Нужно отфильтровать таблицу.
    #33870581
air1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не получается. Вроде и выражение получается правильное, а на выходе пустоая таблица. Хотя я знаю точно что по введенным данным хотя бы одна строчка в курсоре должна быть.
...
Рейтинг: 0 / 0
Нужно отфильтровать таблицу.
    #33870970
Cyv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
авторВроде и выражение получается правильное
?FILTER("reestr") или WAIT WINDOW FILTER("reestr") что показывает?
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Нужно отфильтровать таблицу.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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