Ошибка времени выполнения «6»: Visual Basic

Question

Я использую Visual Basic 6
У меня следующая структура кода:
FUNCNINFO - это структура

Public funcTable() As FUNCNINFO
-----
------
ReDim Preserve funcTable(0 To upsize + ns)

Когда значение (upsize + ns) превышает 32766, этовыдача ошибки переполнения во время выполнения '6' У вас есть представление о причине и решении?

Answer 1

Тип Integer VB6 равен 16 битам, поэтому не может хранить значение> 32767, его Long - это 32-битный целочисленный тип, поэтому будет работать следующее:

Dim upsize As Long
Dim ns As Long

upsize = 32766
ns = 12345

ReDim Preserve funcTable(0& To upsize + ns)

Answer 2

Я обнаружил, что это была база данных с ошибками.Я не выяснил, где именно была ошибка, а просто сделал резервную копию перед обновлением, и все заработало нормально