Есть два класса:
servSProcParamClass -структура описывает единичный параметр хранимой процедуры с вот такими свойствами
Private strSQLParamName_prp As String
Private varParamValue_prp As Variant
Private intParamType_prp As Integer
Private booParamOutput_prp As Boolean |
servSProcParamListClass -список вышеназванных структур, имеет вот такие свойства
Private arrParamList_prp() As servSProcParamClass
Private intUBound_prp As Integer |
Во втором классе есть метод добавляющий новый элемент в список
Public Sub Add(ByRef objParam As servSProcParamClass)
intUBound_prp = intUBound_prp + 1
ReDim Preserve arrParamList_prp(intUBound_prp)
Set arrParamList_prp(intUBound_prp) = objParam_prp
End Sub |
При компиляции все нормально, но при выполнении когда происходит вызов метода объекта вот так
objParamList.Add(objParam) |
вываливается с ошибкой дескать method not supported.
В чем проблема? Я что не могу передать объект класса как параметр методу другого класса?