运行时错误 '6'：Visual Basic中

Question

我使用Visual Basic 6
我有以下代码结构：
FUNCNINFO是一个结构

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

当的值（升迁+ NS）是超过32766，它给运行时溢出错误'6' 你有任何想法的原因和解决方案？

Answer 1

VB6的Integer类型是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

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