powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Return из формы
8 сообщений из 8, страница 1 из 1
Return из формы
    #34849134
Есть две формы. В превой грид, во второй поиск.Из первой вызываю вторую по кнопке. Нахожу во второй нужную запись. Как сделать, чтобы обновился Grid в первой и встал на нужную запись?
...
Рейтинг: 0 / 0
Return из формы
    #34849149
splayn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
вызвать вторую с параметром thisform и обращаться из второй к первой.
...
Рейтинг: 0 / 0
Return из формы
    #34849188
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я обычно это делаю после выхода из второй формы. Но если очень надо то splayn все верно сказал
...
Рейтинг: 0 / 0
Return из формы
    #34849220
А пример банальный можно?
...
Рейтинг: 0 / 0
Return из формы
    #34849520
PaulWist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Александр АлешинА пример банальный можно?


Например
...
Рейтинг: 0 / 0
Return из формы
    #34849522
прошелмимо
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
не банальный - это простой пример ООП

может понравится
...
Рейтинг: 0 / 0
Return из формы
    #34852273
MiklS
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Довольно просто: вторая форма - модальная. Процедура вызова:
Код: plaintext
1.
2.
3.
4.
DO FORM MyForm.scx TO nRec
IF nRec# 0 
   GO (nRec)
   ThisForm.Grid1.Column1.SetFocus()
ENDIF
В Init второй формы
Код: plaintext
This.AddProperty("nRet",  0 )
По окончанию поиска присваеваешь номер найденной записи
Код: plaintext
ThisForm.nRet=RECNO()
В Unload второй формы
Код: plaintext
RETURN This.nRet 
...
Рейтинг: 0 / 0
Return из формы
    #34855843
Спасибо! Действиьельно, просто и эффективно
...
Рейтинг: 0 / 0
8 сообщений из 8, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Return из формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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