В init формы:

if !MyFunc()
retu .f.
endif


Posted via ActualForum NNTP Server 1.4

Ты лучше опиши что ты хочешь добиться и для чего. Тебе посоветуют.

А то "хочу, чтобы круг стал квадратом, скажите как сделать".


А потом выяснится что ты просто хочешь велосипед, но не догадываешься что на
круглых колесах удобнее.


Posted via ActualForum NNTP Server 1.4

Два вопроса:

1
> При объединении данных иногда бывает нарушение порядка, что при загрузке в
> OleTree дает ошибку 1429, которая исправляется отдельной процедурой.
> Обработка процедурой занимает время, ошибки бывают редко, поэтому
> постоянно при загрузке проверять на ошибки нецелесообразно.

Что значит нарушение порядка????

Всем известно, что перед занесением дочерней ветки в treeview нужно занести
родительскую. Ну и обеспечь нужный порядок и контроль. Сначала заносим все
родительские, потом дочернии, потом внучатые и т.д.
Если появилась дочка, у которой нет родителя - обработали не дожидаясь, пока
treeview выкинет ошибку. Т.е. ПЕРЕД загрузкой данных в treeview мы их
ПОДГОТАВЛИВАЕМ.
В этом случае никакой ошибки просто не может возникнуть и такие вопросы не
будут появляться.


2
> Вызвать init второй раз без активации формы из процедуры обработки
> нельзя (retry не работает), другие методы для загрузки OleTree тоже не
> годятся (activate или gotfocus).


А из "процедуры обработки ошибки" разве нельзя вызвать метод "FillTreeview",
в который поместить код по добавлению данных в дерево и вынести туда весь
код из СОБЫТИЯ (обрати внимание, что это все таки не метод, а событие)
"init"? При наступлении события init тоже вызывать этот метод.


Posted via ActualForum NNTP Server 1.4