ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / обработчик ошибок. что делаю не так?
12 сообщений из 12, страница 1 из 1
обработчик ошибок. что делаю не так?
    #32882303
NikP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NikP
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub myDel()

Reg = Array("Смоленская", "Тверская", "Вологодская", "Калужская", "Московская", _
                "Ярославская", "Владимирская", "Ивановская", "Костромская")
For i =  0  To  8 
On Error GoTo Dalee
    ActiveSheet.Shapes("Kg" & Reg(i)).Select
    Selection.Delete
Dalee:
Next i

End Sub
первых двух объектов не существует третий есть, четвертого нету все остальные есть
если начинаю цикл с нуля не работает, если с 2 все ок
что не так?
...
Рейтинг: 0 / 0
25.01.2005, 13:37:15
| Ответить | Цитировать | Написать  
обработчик ошибок. что делаю не так?
    #32882310
Hibernate
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hibernate
Участник
после метки Dalee надо сбросить состояние ошибки. например, err.Clear
...
Рейтинг: 0 / 0
25.01.2005, 13:40:03
| Ответить | Цитировать | Написать  
обработчик ошибок. что делаю не так?
    #32882325
NikP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NikP
Участник
Hibernateпосле метки Dalee надо сбросить состояние ошибки. например, err.Clear
поставил
Код: plaintext
1.
2.
Dalee:
Err.Clear
та же фигня
...
Рейтинг: 0 / 0
25.01.2005, 13:45:18
| Ответить | Цитировать | Написать  
обработчик ошибок. что делаю не так?
    #32882346
JRM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JRM
Гость
А может вся проблема в том, что цикл должен пробегать от 1 до 9, а не от 0 до 8?
...
Рейтинг: 0 / 0
25.01.2005, 13:51:11
| Ответить | Цитировать | Написать  
обработчик ошибок. что делаю не так?
    #32882372
NikP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NikP
Участник
JRMА может вся проблема в том, что цикл должен пробегать от 1 до 9, а не от 0 до 8?
ну в принципе цикл по массиву всегда бегал с 0
к тому же с 1 до 8 тоже ошибку пишет
а вот с 2 до 8 убирает все как положено. в том числе не существующий объект 3(если считать по циклу) проходит без проблем.
...
Рейтинг: 0 / 0
25.01.2005, 13:59:26
| Ответить | Цитировать | Написать  
обработчик ошибок. что делаю не так?
    #32882399
NikP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NikP
Участник
заметил особенность если цик бежит с 0, то ошибка на 1, если бежит с 1, то ошибка на 3.
...
Рейтинг: 0 / 0
25.01.2005, 14:05:49
| Ответить | Цитировать | Написать  
обработчик ошибок. что делаю не так?
    #32882403
JRM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JRM
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Option Base  0 
Sub Test1()

Reg = Array("Смоленская", "Тверская", "Вологодская", "Калужская", "Московская", _
                "Ярославская", "Владимирская", "Ивановская", "Костромская")
On Error Resume Next

For i =  0  To  8 
    ActiveSheet.Shapes("Kg" & Reg(i)).Select
    If Err.Number =  0  Then
        Selection.Delete
    Else
        Err.Clear
    End If
Next i

End Sub

Вот так отработало без ошибок...
...
Рейтинг: 0 / 0
25.01.2005, 14:06:16
| Ответить | Цитировать | Написать  
обработчик ошибок. что делаю не так?
    #32882409
NikP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NikP
Участник
2 JRM спасибо все работает.
...
Рейтинг: 0 / 0
25.01.2005, 14:09:48
| Ответить | Цитировать | Написать  
обработчик ошибок. что делаю не так?
    #32882413
JRM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JRM
Гость
Да не за что ;)
...
Рейтинг: 0 / 0
25.01.2005, 14:11:52
| Ответить | Цитировать | Написать  
обработчик ошибок. что делаю не так?
    #32882430
NikP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NikP
Участник
Ему оказывается и вот этого хватает.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub myDel()

Reg = Array("Смоленская", "Тверская", "Вологодская", "Калужская", "Московская", _
                "Ярославская", "Владимирская", "Ивановская", "Костромская")

On Error Resume Next

For i =  0  To  8 
    ActiveSheet.Shapes("Kg" & Reg(i)).Select
    Selection.Delete
Next i

End Sub
...
Рейтинг: 0 / 0
25.01.2005, 14:16:52
| Ответить | Цитировать | Написать  
обработчик ошибок. что делаю не так?
    #32882486
JRM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
JRM
Гость
Хватает, но смысл делать что-то, что в принципе сделано быть не может - и мы об этом знаем?
Имхо, лучше поставить проверку на ошибки. Но это моя точка зрения...
...
Рейтинг: 0 / 0
25.01.2005, 14:33:30
| Ответить | Цитировать | Написать  
обработчик ошибок. что делаю не так?
    #32882508
NikP
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NikP
Участник
JRMХватает, но смысл делать что-то, что в принципе сделано быть не может - и мы об этом знаем?
Имхо, лучше поставить проверку на ошибки. Но это моя точка зрения...
а вот об этом я не подумал
еще раз спасибо
...
Рейтинг: 0 / 0
25.01.2005, 14:41:49
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / обработчик ошибок. что делаю не так?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=32882346&tid=2168293]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 37ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 31ms
get tp. blocked users:
 1ms
others: 229ms
total:  325ms
созд. / загр.: 325ms
x
x
Закрыть


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