Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск по locate / 6 сообщений из 6, страница 1 из 1
28.06.2007, 14:42
    #34626260
МашкоБ.В.
МашкоБ.В.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск по locate
Есть задание. В grid в локальном представлении имеются поля с одинавовыми номерами договоров. Пользователь должен ввести номер договора в textbox. Курсор перемещается на первую найденную запись. И дальше если пользователь нажимает кнопку поиск , курсор переходит на договор с таким же номером.
Как организовать простой поиск я знаю, я использую locate.Но как сделать дальнейший поиск затрудняюсь, посути надо проверять это первый поиск или это продолжение поиска.
Есть конечно вариант, сделать select c условием или set filter, но мне хочется по первому варианту.
Может кто делал такое. Просмотрел форум вроде такого не было.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2007, 15:00
    #34626327
Sergey Sizov.
Sergey Sizov.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск по locate
Для продолжения поиска после Locate существует Continue, которой не надо ничего проверять.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2007, 15:00
    #34626330
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск по locate
заводишь свойство-флаг на форме ThisForm.lContinue
поиск:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
if ThisForm.lContinue
   continue
   if !found()
      * больше нету
   endif
else
   locate ...
   ThisForm.lContinue = .T.
endif
Если изменили номер в текстбоксе ThisForm.lContinue = .F.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2007, 16:04
    #34626565
МашкоБ.В.
МашкоБ.В.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск по locate
Dima T
А можно по подробнее. При создании свойства что выбирать assign или access. И как это связать с кнопкой. Извените за тупые вопросы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2007, 16:32
    #34626686
Sergey Sizov.
Sergey Sizov.
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск по locate
Это отнюдь не обязательные элементы, назначение которых, к тому же, надо знать, чтобы использовать.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.06.2007, 08:58
    #34627712
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поиск по locate
Расшифровываю:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
ThisForm.Init()
ThisForm.AddProperty("lContinue")
ThisForm.lContinue = .F.


ThisForm.TextBox.InteractiveChange()
* что-то поменяли
ThisForm.lContinue = .F.


ThisForm.cmdFind.Click()
sele MyTable
if ThisForm.lContinue
   continue
   if !found()
      * больше нету
      ThisForm.lContinue = .F.
   endif
endif
if !ThisForm.lContinue
   locate ...
   if found()
      ThisForm.lContinue = .T.
   else
      * вообще нет такого
      go top
   endif
endif
ThisForm.Grid.Refresh()
ThisForm.Grid.SetFocus()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск по locate / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 389ms
Закрыть
start [/forum/topic.php?fid=41&tablet=1&tid=1589079]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 91ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 197ms
total:  389ms
x
x
Закрыть


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