_Screen скрыт? - Сделай видимым!



> На фоорме soob одна кнопка "ОК" с таким кодом:
>
>
> CLEAR EVENTS
> ThisForm.release()
> QUIT

QUIT никогда не отработает.

if file("d:\MyWork\mtab.dbf")
select 1
use d:\MyWork\mtab.dbf
else
do form d:\MyWork\soob return .f.
endif

do form d:\MyWork\nachalo
read events


Posted via ActualForum NNTP Server 1.4

По NNTP идет один текст без тегов HTML. Ушел криво:

if file("d:\MyWork\mtab.dbf")
select 1
use d:\MyWork\mtab.dbf
else
do form d:\MyWork\soob
return .f.
endif

do form d:\MyWork\nachalo
read events


Posted via ActualForum NNTP Server 1.4

> do form d:\MyWork\soob
> return .f. - Он не предупреждает пользователя об потере таблицы
> mtab.dbf.

Мля...

Ща догадаюсь.

Return отработал, но пользователя не предупредил?

Если так, то я уже говорил, ну да ладно. Тебе лениво сделать что говорят -
будем объяснять:

Модальность формы работает ТОЛЬКО на SCREEn`e , иначе она не имеет значения.

Сделай скрин фидимым, если тебе нужна модальность. Это раз

Второе. форма soob наверняка сделана как in screen/ screen`a нет - нет и
формы

Сделай вместо do form d:\MyWork\soob

MessageBox('Бла-бла-бла, таблицы нет')


Еще раз, на всякий случай: Screen покажи и все будет пучком.


Posted via ActualForum NNTP Server 1.4