Question

我正在研究小脚本并做出错误决定在VBS中做到这一点。

...
result = FindAndUpdate(objDictionary, id)
...
Function FindAndUpdate(objDictionary, id)
    MsgBox(objDictionary.Count)
    FindAndUpdate = true
End Function

现在我正在努力解决那些没有任何意义的事情。我正在将Dictionary对象传递给函数。在函数MsgBox（objDictionary.count）中执行，我在警告框中得到数字15，但在同一行上立即报告错误对象必需：'objDictionary'

感谢任何帮助

Answer 1

您可以添加对objDictionary的检查，如果不存在则退出您的函数：

Function FindAndUpdate(objDictionary, id)
  If Not IsObject(objDictionary) Then
    FindAndUpdate = false
    Exit Function
  End If

  MsgBox(objDictionary.Count)
  FindAndUpdate = true
End Function

VBS - 如何将对象作为参数传递给函数

1 个答案: