关于Variant类型的数组转换，很着急

Question

你的数组没有实例化：Redim qt(0)

Answer 1

这个函数是这样声明的，现在就是后面两个参数读取的时候老是报错，
按照楼上这种说法，还是报错的Private Sub Command5_Click()
Dim vtItemsvalue() As Variant
Dim lErrors() As Long
Dim qt() As Variant
Dim TimeStam() As Variant
ReDim qt(2)  '我先分配了数组大小
ReDim TimeStam(2)
  DB1Group.SyncRead 1, 5, lServerHandles, vtItemsvalue, lErrors, qt, TimeStam
  MsgBox CStr(VarType(qt))
  MsgBox CStr(UBound(qt))
End Sub还是报下标越界

Answer 2

vtItemsvalue这个变量未初始化，我返回的数据是正常的
下面这个是文档提供的例子