Аргумент аргумента должен быть ByRef

Question

Что я здесь делаю неправильно?

Sub Main() 

Dim patients() As String 

' Some code to populate the patients array, works fine 

CalculateScores (patients) ' Array argument must be ByRef compile error 

End Sub 



Sub CalculateScores(patients As String) 

End Sub 

Если я изменяю пациент варианта массива в Main и параметры CalculateScores он работает нормально, но я не могу видеть логику не в состоянии передать строку. По умолчанию это ByRef, поэтому я знаю, что чего-то не хватает.

Я могу использовать вариант уверенно, но он чувствует себя взломанным.

Answer 1

Когда вы сделаете это:

DoSomething (expression) 

Вы принуждая expression быть оценены как значение и передается ByVal, независимо от того, явно говорит параметр это передается ByRef. В то время как это более или менее не влияет на большую часть времени, оно укусит вас в тылу, когда вы пытаетесь передать массив или ссылку на объект.

Опустите круглые скобки.

DoSomething expression 

---

Теперь, есть и другие проблемы, связанные с вашим кодом: можно передать массив строк в качестве параметра String; что не может работать. Сделайте параметр массивом или Variant, и я бы предложил указать параметр явно как ByRef, для ясности.