returnering av array med objekter i vba

[doloop]

heisann jeg er en ganske nybegynner i visual basic (a) og har problemer med noe så enkelt som å returnere et array av objekter.

 

 

'returns an Employee object array containing all Employees

 

Function listEmployees() As Object()
dim employeeVar As Employee
ReDim listEmployees(antall ansatte)

for (j=0 to antall ansatte)
Set employeeVar = New Employee
....
Set listEmployees(j) = employeeVar
next j

 

gir kompileringsfeilen på linjen over next j

 

"Wrong number of arguments or invalid property assignment (Error 450)"

Endret 18. juni 2007 av doloop

[aadnk]

Bruk en midlertidig array:

Function listEmployees() As Object()

 

    Dim employeeVar As Employee

    Dim tempArray() As Object, J As Long

    ReDim tempArray(antall_ansatte)

 

    For J = 0 To antall_ansatte

        Set employeeVar = New Employee

        '....

        Set tempArray(J) = employeeVar

    Next

   

    listEmployees = tempArray

 

End Function

[doloop]

Bruk en midlertidig array:

Function listEmployees() As Object()

 

    Dim employeeVar As Employee

    Dim tempArray() As Object, J As Long

    ReDim tempArray(antall_ansatte)

 

    For J = 0 To antall_ansatte

        Set employeeVar = New Employee

        '....

        Set tempArray(J) = employeeVar

    Next

   

    listEmployees = tempArray

 

End Function

8887537[/snapback]

 

 

takker ser ut til at det virket =)