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&msg=34626260&tid=1589079]:
 0ms
get settings:
 6ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 17ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 182ms
total:  272ms
созд. / загр.: 272ms
x
x
Закрыть


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