ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск по locate
6 сообщений из 6, страница 1 из 1
Поиск по locate
    #34626260
МашкоБ.В.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МашкоБ.В.
Гость
Есть задание. В grid в локальном представлении имеются поля с одинавовыми номерами договоров. Пользователь должен ввести номер договора в textbox. Курсор перемещается на первую найденную запись. И дальше если пользователь нажимает кнопку поиск , курсор переходит на договор с таким же номером.
Как организовать простой поиск я знаю, я использую locate.Но как сделать дальнейший поиск затрудняюсь, посути надо проверять это первый поиск или это продолжение поиска.
Есть конечно вариант, сделать select c условием или set filter, но мне хочется по первому варианту.
Может кто делал такое. Просмотрел форум вроде такого не было.
...
Рейтинг: 0 / 0
28.06.2007, 14:42
| Ответить | Цитировать | Написать  
Поиск по locate
    #34626327
Sergey Sizov.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov.
Гость
Для продолжения поиска после Locate существует Continue, которой не надо ничего проверять.
...
Рейтинг: 0 / 0
28.06.2007, 15:00
| Ответить | Цитировать | Написать  
Поиск по locate
    #34626330
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
заводишь свойство-флаг на форме 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, 15:00
| Ответить | Цитировать | Написать  
Поиск по locate
    #34626565
МашкоБ.В.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
МашкоБ.В.
Гость
Dima T
А можно по подробнее. При создании свойства что выбирать assign или access. И как это связать с кнопкой. Извените за тупые вопросы.
...
Рейтинг: 0 / 0
28.06.2007, 16:04
| Ответить | Цитировать | Написать  
Поиск по locate
    #34626686
Sergey Sizov.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov.
Гость
Это отнюдь не обязательные элементы, назначение которых, к тому же, надо знать, чтобы использовать.
...
Рейтинг: 0 / 0
28.06.2007, 16:32
| Ответить | Цитировать | Написать  
Поиск по locate
    #34627712
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
Расшифровываю:
Код: 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
29.06.2007, 08:58
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поиск по locate
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=192&tid=1589079]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 61ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 33ms
get tp. blocked users:
 2ms
others: 226ms
total:  366ms
созд. / загр.: 366ms
x
x
Закрыть


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