Добрый день.
Есть модуль, в рамках которого описаны пользовательский тип. Объявлен динамический массив пользовательского типа, процедура и функция.
Процедура в ходе работы вызывает функцию. В функции идёт работа этого массива.
После завершения работы функции - массив обнуляется.
Вот часть кода ():
Внутри функции происходит корректное расширение, заполнение массива, но когда функция выполняется и возвращается в процедуру - массив не инициализирован. ACH() <Out of context>
Есть модуль, в рамках которого описаны пользовательский тип. Объявлен динамический массив пользовательского типа, процедура и функция.
Процедура в ходе работы вызывает функцию. В функции идёт работа этого массива.
После завершения работы функции - массив обнуляется.
Вот часть кода ():
Код |
---|
Type OneCredit CreditProduct As String BCIName As String End Type Public ACH() As OneCredit Public Sub LoadBKI() Call BKI(10) End Sub Public Function BKI(startrow As Integer) ReDim ACH(0) While Cells(e, 4) <> "" ReDim Preserve ACH(UBound(ACH) + 1) Wend BKI = 1 End Function |
Внутри функции происходит корректное расширение, заполнение массива, но когда функция выполняется и возвращается в процедуру - массив не инициализирован. ACH() <Out of context>