Uso de ParamArray dentro de una clase

[pkj]

Si lo he entendido bien, y despues de darle vueltas y hacer nuevas pruebas, la solucion más simple es la única que se me ocurre que pueda funcionar.

Si siempre va a entrar la misma cantidad de parámetros solo tendrias que crear una linea que los cargue uno a uno:

Código vb:

Set SaveRecords = LoadProcedure(Procedure, CommandType, Param(0), Param(1), Param(2))
 

Sin embargo, si es un paramarray suele ser porque no se sabe cuantos parametros va a recibir, de modo que la unica solucion que se me ocurre y que debe funcionar es hacer la llamada segun la cantidad de parametros que arrastre param():

Código vb:

if ubound(param)=0 then
 
  Set SaveRecords = LoadProcedure(Procedure, CommandType, Param(0))
 
elseif ubound(param)=1 then
 
  Set SaveRecords = LoadProcedure(Procedure, CommandType, _
Param(0), Param(1))
 
elseif ubound(param)=2 then
 
  Set SaveRecords = LoadProcedure(Procedure, CommandType, _
Param(0), Param(1), _
Param(2))
 
'...etc
'...etc
'...debes poner hasta un valor alto por si entra un comando con muchos parametros
 
'p.ej:
elseif ubound(param)=30 then
  Set SaveRecords = LoadProcedure(Procedure, CommandType, _
Param(0), Param(1) _
Param(2), Param(3) _
Param(4), Param(5) _
Param(6), Param(7) _
Param(8), Param(9) _
Param(10), Param(11) _
Param(12), Param(13) _
Param(14), Param(15) _
Param(16), Param(17) _
Param(18), Param(19) _
Param(20), Param(21) _
Param(22), Param(23) _
Param(24), Param(25) _
Param(26), Param(27) _
Param(28), Param(29) _
Param(30))
 
' y si son demasiados parametros podemos avisar
Else
  MsgBox "Demasiados parámetros en la llamada a LoadProcedure"
 
End If
 

Yo es que no consigo recibir ni la matriz dentro de otra matriz, porque me da error de tipos diferentes de datos, de modo que no puedo llegar mas lejos que esto. Espero que al menos te saque del paso si no lo habias hecho ya.

Suerte