AppointmentItem的矩阵

Question

我试图让我的脚本返回一个约会项目列表。我是这样做的：

Function testing() as AppointmentItem

Dim returnlist(10) as AppointmentItem
Dim item as AppointmentItem

for i = 0 to 9
    item = // create random appointmentitem
    Set returnlist(i) = item
next

testing = returnlist

End Function

返回列表已正确填写，但在testing = returnlist行上，它会为Run Time Error '91' : Object Variable or With Block not Set提供。

我在这里缺少什么？

Answer 1

您应该返回AppointmentItem的数组，而不是单AppointmentItem。试试这个：

Function testing() as AppointmentItem()
   Dim returnlist(10) as AppointmentItem
   Dim item as AppointmentItem

   For i = 0 to 9
      item = '// create random appointmentitem
      Set returnlist(i) = item
   Next

   testing = returnlist
End Function