相关疑难解决方法(0)

我正在尝试从函数中返回一个字典.我相信该功能正常,但我不知道如何利用返回的字典.

这是我的功能的相关部分:

Function GetSomeStuff()
  '
  ' Get a recordset...
  '

  Dim stuff
  Set stuff = CreateObject("Scripting.Dictionary")
  rs.MoveFirst
  Do Until rs.EOF
    stuff.Add rs.Fields("FieldA").Value, rs.Fields("FieldB").Value
    rs.MoveNext
  Loop

  GetSomeStuff = stuff
End Function

如何调用此函数并使用返回的字典？

编辑:我试过这个:

Dim someStuff
someStuff = GetSomeStuff

和

Dim someStuff
Set someStuff = GetSomeStuff

当我尝试访问someStuff时,出现错误:

Microsoft VBScript runtime error: Object required: 'GetSomeStuff'

编辑2:在函数中尝试这个:

Set GetSomeStuff = stuff

结果出现此错误:

Microsoft VBScript runtime error: Wrong number of arguments or invalid property assignment.