Run-time error '10'

[JohnK]

Run-time error '10': This array is fixed or temporarily locked

Выскакивает не всегда, но бывает:

Dim kkk() as mytype
....

Redim kkk(100)

.....

Redim Preserve kkk(Ubound(kkk)-1)
' В этом месте Причем Ubound(kkk)>0

Причем код может работать долгл и счастливо, а может вылетить вот в такую ошибку. В чем прикол?

Так как массив динамический, то значит он временно недоступен (locked), может потому что пользовательского типа?

[Viper]

Больше кода давай, а то телепатов няма!

З.Ы. Навскидку: А мож Option Explicit не стоит?

[JohnK]

Option Explicit есть

Дело в том что все это работает... Возможно массив большой и при частом вызове при сортировке (удалении элемента) не успев присвоить переходит к усечению размера?

Запись массива примерна такого состава:

Код: Выделить всё

Public Type User_type
q As Integer
w As String
e As String
r As String
t As Long
y As Long
u As Integer
i As Boolean
o  As Boolean
p As Long
a As String
s As Boolean
f As Boolean
g As Boolean
h As Boolean
j As String
k As Long
l As Boolean
z As Boolean
  x As Boolean
c As Boolean
v As Boolean
b As Integer
n As Long
m As Boolean
qq As Long
ww As Long
End Type


Не то чтобы сильно большой, но и не маленький.

Код: Выделить всё

array() as UserType
...

Public Sub DeleteFrom Array(Ind As Integer)
Dim i As Integer

If Ind< UBound(array()) Then
For i = Ind To UBound(array()) - 1
   array(i) = array(i + 1)
Next i
End If

ReDim Preserve array(UBound(array()) - 1)

End Sub


[/code]

[tyomitch]

Дело в том что все это работает... Возможно массив большой и при частом вызове при сортировке (удалении элемента) не успев присвоить переходит к усечению размера?

До тех пор, пока квантовый компьютер не изобрели, программы выполняются последовательно.

[Ennor]

В поиск по DebugBreak.
Заодно читать, для чего эту функцию обычно применяют.
Заодно думать, чем тебе это может помочь.

[JohnK]

tyomitch В курсе, но иногда посешают мысли о мистификации Виндоузз

Ennor
СПАСИБО!!!!
А по-существенней? Почему массив блокирован? Ты думаешь Debug поможет?

[EUGY]

Наверняка что-то не догавариваешь.
Хотя-бы UBound(array()) в отдельную переменную занеси.
А то у тебя в цикле может еще что-то с размерностью происходит а мы и не видим.

[EUGY]

И вообще,как это, слово Аrray служит именем переменной?
P.S. Начинаю подозревать причины неработоспособности кода.

[JohnK]

Ладно, Google мне товарищ...

[Ennor]

Эта функция применяется для остановки скомпилированного EXE и отладки его уже не в среде Visual Basic, а в штатном системном дебаггере.

Для такой отладки нужно включить генерацию Debug Info - галка в свойствах проекта. Иначе твой исходный код на VB будет тебе недоступен, и толку будет ноль.

У меня бывали случаи, когда один и тот же код на VB6 по-разному вел себя в зависимости от того, запускается он из-под IDE или же в скомпилированном EXE. Как правило, подобное поведение свидетельствует о жуткой кривости архитектуры программы . Не исключено, что у тебя именно этот случай. Я бы даже сказал - очень похоже .

Вообще, слишком долго объяснять, что и как именно делать. А искать советую на этом же форуме - вверху ссылка на поиск. Красным шрифтом. Наверняка когда-нибудь уже описывалась последовательность действий...