В чём ошибка ???

[Tom]

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

Sub SendBank(ByVal bankNum As Integer)
Dim Packet As String
    Packet = "bankitem" & SEP_CHAR & bankNum & SEP_CHAR & Player(MyIndex).bank(bankNum).Num & SEP_CHAR & Player(MyIndex).bank(bankNum).dur & SEP_CHAR & Player(MyIndex).bank(bankNum).Value & SEP_CHAR & END_CHAR
    Call SendData(Packet)
End Sub


Выдаёт сдесь

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

Player(MyIndex).bank(bankNum).dur

и сдесь

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

Player(MyIndex).bank(bankNum).Value

Помагите зарание спс.

[Tom]

subscript out of range вот такую ошибку пишет.

[VVitafresh]

subscript out of range вот такую ошибку пишет.

Перевести сообщение что ли?

"Индекс выходит за пределы допустимого диапазона". Нет элемента (объекта) с таким индексом значит.

[Tom]

Нет почему она возникае.

[GSerg]

Перечитай предыдущее сообщение, там это написано.

[RayShade]

DNA

[beat_swamp]

Tom, это значит, что значение параметра bankNum больше, чем размер_массива_bank - 1, ИЛИ, что MyIndex больше, чем размер_массива_Player - 1.
кстати совсем не понятно где объявлена у тебя переменная MyIndex.