Sharkky
01-08-2003, 14:12
Буквально пишу следующее:
Dim CurrentHeaders as New Collection 'глобальная коллекция
Sub InitCurrentHeaders()
Set CurrentHeaders = New Collection
for i = 1 to 3
CurrentHeaders.Add 0
Next i
End Sub
В том месте где мне эта колекция нужна, после вызова процедуры InitCurrentHeaders пытаюсь своим творением воспользоваться:
CurrentHeaders(1) = i
(то же самое для CurrentHeaders.Item(1) = i)
Результат: Object Requiered
Всё действие происходит внутри одного модуля
Самое забавное, что в Watch'е CurrentHeaders виден и все элемнты коллекции имеют значение ноль, как и должно быть
Что делать?
Уже руки трясуться!
Dim CurrentHeaders as New Collection 'глобальная коллекция
Sub InitCurrentHeaders()
Set CurrentHeaders = New Collection
for i = 1 to 3
CurrentHeaders.Add 0
Next i
End Sub
В том месте где мне эта колекция нужна, после вызова процедуры InitCurrentHeaders пытаюсь своим творением воспользоваться:
CurrentHeaders(1) = i
(то же самое для CurrentHeaders.Item(1) = i)
Результат: Object Requiered
Всё действие происходит внутри одного модуля
Самое забавное, что в Watch'е CurrentHeaders виден и все элемнты коллекции имеют значение ноль, как и должно быть
Что делать?
Уже руки трясуться!