VBScript：错误10023：数组索引超出范围（重用数组变量时出现问题）

Question

使用Sax ActiveX脚本（长话），我有3个嵌套的if语句，它们重复使用了相同的返回变量。 脚本大致如下：

Dim rtnArray As Variant
If variable1 <> "" Then
    ' Perform SQL query against DB2 database
    rtnArray = DB2SQLSearch(Query)
    If UBound(rtnArray) = 0 Then
        ' ditto
        rtnArray = DB2SQLSearch(Query2)
        MsgBox "Gets this far"
        If UBound(rtnArray) = 0 Then ' Error!
            ' Never make it here

奇怪的是，同样的代码结构正在我上周编写的脚本中运行； 我只是简单地更改了几个查询和函数的名称（查找>替换）。

在第二次查询后，我尝试了一个MsgBox CStr(rtnArray(0)(0))但在中产生Error 10025 in : Array has a different number of indexes.

错误代码与以下手册相对应：
http://www.ftgsoftware.com/manuals/basic32.pdf

Answer 1

您可以将其存储在另一个变量，或ReDim的rtnArray变量havve适当的大小。 为了Redim，您需要知道大小。

Answer 2

弄清楚了。

在这种情况下，我所连接的用户具有对第一个表的授权，但对第二个表没有授权。

这没有引发错误，但是有一条消息可以检查是否成功，所以我可以查找并引发自己的错误，而不是传递空数组。 （这不是一个适当的Null ，坦率地说，除了Variant之外，我仍然不确定100％是什么。但是它肯定不喜欢UBound() ！