[Alex_47]

Здравствуйте!!! Подскажите, пожалуйста, почему вот так работает
________________________________________________________
Dim put_ As String
OnError GoTo no_states
Open Table "states"

no_states:
put_=FileOpenDlg("","","TAB","Открытие таблицы states ")
resume after_mapfrom

after_mapfrom:
OnError GoTo 0
...
End Program
________________________________________________________
А так уже нет
________________________________________________________
Dim put_ As String
OnError GoTo no_states
Open Table "states"

no_states:
put_=FileOpenDlg("","","TAB","Открытие таблицы states ")
Open Table put_
resume after_mapfrom

after_mapfrom:
OnError GoTo 0
...
End Program
________________________________________________________

[FedorinoFF]

было бы полезным озвучить что именно не работает или работает не так.

[Alex_47]

Если при обработке ошибки стоит оператор OPEN TABLE, то насколько я понял таблица не открывается и выполнение программы переходит в начало, а не на метку и после этого выдает ошибку «Таблица states не найдена. Таблицу states открыть не удалось». А если не открывать таблицу то ошибки нет.

[Андрей Могильный]

Блок обработки ошибок ничем не отличается от любого другого блока программы. Исполнение идет обычным образом - команды сверху вниз, с ветвлением, циклами и прочим. Если попали в блок обработки ошибки, то надо обеспечить выход из него - т.е. поставить goto в предполагаемом конце блока обработки ошибки. В блоке обработки ошибки может возникнуть другая ошибка, предыдущий OnError на нее уже на распространяется, надо ставить новый или пойдет обработка по умолчанию (появится сообщение об ошибке).

[FedorinoFF]

Уважаемый Alex_47!
Вам надо проблему решить или просто поговорить ;-)
Имеем уже два ваших поста, но так и не понятно к чему речь.
Как говорят умные люди, в правильно поставленном вопросе содержиться половина ответа, или примерно так...

Может лучше как в школьных задачках, да и не только в школьных, пойти по простому пути:
1. Дано
2. Найти/доказать
3. мой вариант решения/понимания
4. Вопрос к форуму

Чем больше исходной информации - тем лучше. Это как на приеме у врача.
Тогда любой человек спокойно поймет что за проблема и окажет посильную помощь, в крайнем случае задаст наводящие вопросы. Иначе можно погрязнуть в чтении и сборе обрывочных сведений из последующих постов...

[reasonat]

Для начала, перед тем как задаваться сложными вопросами, вставляйте в непонятных местах проверку значения:
print "получили вот такой вот путь к таблице - " + put_
Что дает? А то может программа путь не получила, потому и открыть не может. А потом уже Open Table

Ппро обработчик:
при возникновении ошибки в коде после объявления блока обработчика OnError.. программа идет к метке, которая объявлена в GoTo, т.е. к no_states, причем эта метка должны быть расписана в конце процедуры, после выхода из нее (Exit Sub), там и происходит вывод сообщения об ошибке и завершение обработчика, может переход на другую метку. Типа того:

ExitSub:
OnError Goto 0
Exit Sub

no_states:
Note Error$()
Resume ExitSub

А в Вашем случае обработчик, кажется, выйти не может, все возвращается на диалог открытия таблицы..

[Alex_47]

1: Хочу открыть таблицу "states" - т.к. ее нет выполнение программы переходит на метку "no_states"
2: В обработчике ошибок хочу указать нужную таблицу при помощи "FileOpenDlg" возвратив имя файла в переменную put_
3: далее пытаюсь открыть таблицу именно тут и возникает проблема - открыть таблицу не получается

Вопрос: Почему не получается открыть таблицу из обработчика ошибок?

[reasonat]

Sub ..
Dim put_ As String

OnError GoTo no_states
put_ = "states"

after_mapfrom:
Open Table put_
OnError GoTo 0

...
Exit Sub
no_states:
put_=FileOpenDlg("","","TAB","Открытие таблицы states ")
resume after_mapfrom
End Sub

[FedorinoFF]

[quote="Alex_47"]
3: далее пытаюсь открыть таблицу именно тут и возникает проблема - открыть таблицу не получается

Вопрос: Почему не получается открыть таблицу из обработчика ошибок?[/quote]

А можно дословное сообщение об ошибке? ;-)

Может таблица уже открыта?
А может надо написать
open table put_ as States (т.е. принудительно задать алиас)?

Надо вдумчиво понять работу обработчиков, и понять причину ошибки неоткрытия выбираемой таблицы. и должно все заработать.

[Alex_47]

[reasonat]

да у вас в другом проблема, в no-states процедура переходит, она не выполняет открытие таблицы с полученным адресом.
Говорю же, расставьте после каждого действия проверочные Print...
B почему, собственно открытие табилцы должно происходить именно из no_states, а не из after_mapfrom?
Пуще того, почему нельзя сразу явную проверку сделать, а не обработчиком: