运行时错误'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

VB6的Integer类型是16位，因此无法存储值＆gt; 32767，其Long是32位整数类型，因此以下内容可以正常工作;

Dim upsize As Long
Dim ns As Long

upsize = 32766
ns = 12345

ReDim Preserve funcTable(0& To upsize + ns)

Answer 2

我发现它是有错误的数据库。我没有解决错误的确切位置，只是在更新之前进行了备份并且运行正常