Passing scripting.dictionary [] by ref to Function

Question

Я работаю над небольшим VBScript и пытаюсь создать scripting.dictionary[]. Я должен передать этот массив словаря функции в ref. Я получил эту функцию через скомпилированную библиотеку. определение функции ниже.

public string Update(string name, ref Scripting.Dictionary[] Data, string sRecordId = "") 

Мои строки кода здесь

Set objQWS = CreateObject("Dll") 
Set X = PassDictionary 

objQWS.Update "Name", x, "" 

MsgBox "Additional Info Sent" 

Function PassDictionary() 
    Dim objDic 
    Set objDic = CreateObject("Scripting.Dictionary") 

    objDic.Add "id", 1 
    objDic.Add "name", "a" 
    objDic.Add "extd_price", "b" 
    objDic.Add "sales_rep", "c" 
    objDic.Add "opportunity_id", "d" 
    Set PassDictionary = objDic 
End Function 

Проблемная область является Update функция. Каждый раз, когда я запускаю код, на функции Update он дает мне ошибку «несоответствие типа». может ли кто-нибудь сказать мне, как я могу заставить эту работу работать?

Answer 1

Вы передаете один словарь, а не набор словарей. Попробуйте что-то вроде

Set x = PassDictionary 
arr = Array(x) 
objQWS.Update "Name", arr, "" 

Не уверен, что если он будет работать, хотя, так как VBScript не знает типы, поэтому массив будет иметь тип Variant().

Еще одна вещь, которую вы могли бы попробовать - это изменить тип параметра от Scripting.Dictionary[] до Scripting.Dictionary, так как вы передаете только один словарь.