Всем привет!
Описан тип:
Объявлен массив:
Необходимо в массив добавить новый элемент и, следовательно, увеличить размерность.
Пытаюсь делать так:
На строке
ошибка "Subscript out of range".
Пока это все дело работает через промежуточный массив, то есть redim без preserve работает номарльно.
Подскажите какие еще варианты решения есть?
Описан тип:
Код:
Type myt
p1 As String
p2 As String
End Type
Код:
Dim arr() As myt
Redim arr(1,1)
arr(1,1).p1="p1value"
arr(1,1).p2="p2value"
Пытаюсь делать так:
Код:
Redim Preserve arr(2,1)
arr(2,1).p1="p1value2"
Код:
Redim Preserve arr(2,1)
Пока это все дело работает через промежуточный массив, то есть redim без preserve работает номарльно.
Подскажите какие еще варианты решения есть?