Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / SET FILTER; поиск? ? ? / 9 сообщений из 9, страница 1 из 1
26.06.2004, 21:31
    #32578695
BeeTLe.ru
BeeTLe.ru
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SET FILTER; поиск? ? ?
Помогите решить задачу!:

Дано:
Два обьекта TEXTBOX (txtGanr) и GRID (grdGanr). В гриде данные из таблицы (Ganr).

Задача:
После каждой введённой буквы в txtGanr, или выбраном значениии из грида, в гриде должен срабатывать фильтр.

Например:
Ввели “с” в таблице должны отображаться все записи начинающиеся на букву “с”(странная история, сказка, сказка для взрослых, секс история);
В таблице выбираем “сказка” в txtGanr отбражается “сказка”,а в гриде записи начинающиеся на слово “сказка” (сказка, сказка для взрослых)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2004, 22:00
    #32578706
Redrik
Redrik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SET FILTER; поиск? ? ?
см. KeyPress...
Делаешь пустую строковую переменную, по мере нажатия клавиш "плюсуешь" к ней символы...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2004, 22:03
    #32578708
Андрей Давыдов
Андрей Давыдов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SET FILTER; поиск? ? ?
2 BeeTLe.ru
В .....txt.InteractiveChange
SELE Алиас
LOCAL лсСтр
лсСтр='"'+This.Value+'"'
SET FILTER TO АлиасюПоле=&лсСтр
GO TOP
....grd.Refresh()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2004, 22:14
    #32578712
BeeTLe.ru
BeeTLe.ru
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SET FILTER; поиск? ? ?
2 Андрей Давыдов

чо то не ищет :(
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2004, 23:00
    #32578722
BeeTLe.ru
BeeTLe.ru
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SET FILTER; поиск? ? ?
2 Андрей Давыдов

В interactiveChange прописал

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
if empty(This.Value)
  set filter to
  go top
else
  SELECT ganr
  LOCAL lcPoisk
  lcPoisk=This.Value
  SET FILTER TO cganr=Alltrim(lower(lcPoisk))
  GO TOP
endif
thisform.grdGanr.Refresh()

все по лучилось ! Спасибо!

В AfterRowColChange прописал :

Код: plaintext
1.
select ganr
thisform.txtganr.value=alltrim(cGanr)

если в txtGanr чтото находится после нажатия по гриду ругается FOX:

Variable “lcPoisk” is not found
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2004, 23:30
    #32578732
Андрей Давыдов
Андрей Давыдов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SET FILTER; поиск? ? ?
2 BeeTLe.ru

SET FILTER Динамический
перевычесляется при лубой навигации по таблице.
т.е. нельзя фильтр ставить на локальную перемменную,
если фильтр действует не только в проц-ре.

Либо подставляй значение фильтра через макро,
либо в глобальную переменную, св-во объекта.

У нас салюты начали бомбить, пошел смотреть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2004, 23:40
    #32578738
BeeTLe.ru
BeeTLe.ru
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SET FILTER; поиск? ? ?
всё получилось большое спасибо !!!

а в честь чаго салюты?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2004, 23:43
    #32578739
Андрей Давыдов
Андрей Давыдов
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SET FILTER; поиск? ? ?
Меня с днем республики поздравляют.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.06.2004, 23:45
    #32578741
BeeTLe.ru
BeeTLe.ru
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SET FILTER; поиск? ? ?
присоединяюсь к поздравлениям!!!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / SET FILTER; поиск? ? ? / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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