Гость
Войти | Профиль | Очистить
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как передать название формы на вторую форму? / 2 сообщений из 2, страница 1 из 1
10.10.2019, 05:39
    #39874374
ularsoft
ularsoft
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как передать название формы на вторую форму?
Здравствуйте, уважаемые форумчане!

Имеется форма First1, в ней использую класс CO1 для открытия другого справочника - это вторая форма Second1.
В классе при нажатии кнопки использую следующие строки:
Код: sql
1.
2.
3.
Local m_kodben
m_kodben=0
DO FORM Second1 WITH .f.,.f.,1,This.Parent


А на форме Second1 имеется кнопка "Выбрат", при нажатии

Код: sql
1.
2.
3.
4.
Thisformset.cl_obj.txKodBen.value=B_LOC.ID
m_chet=ALLTRIM(BEN_LOC.CHET)
Thisformset.Release
Keyboard CHR(9)

Подскажите пожалуйста, как мне передать название формы First1 на Second1, чтобы использовать код
Код: sql
1.
IF This.Parentform='First1'

или я не правильно делаю?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.10.2019, 07:05
    #39874380
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как передать название формы на вторую форму?
Форма такой же объект как и любой другой. Передавай ThisForm как параметр

В First1 вызываешь
Код: sql
1.
do form Second1 with ThisForm


В Second1.Init() сохраняешь
Код: sql
1.
2.
lpara toFirst
ThisForm.oFirst = toFirst


Далее в коде Second1 используешь ThisForm.oFirst
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как передать название формы на вторую форму? / 2 сообщений из 2, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 416ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1581620]:
 0ms
get settings:
 11ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 34ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 1ms
others: 287ms
total:  416ms
x
x
Закрыть


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