Domino 9 und frühere Versionen > ND7: Entwicklung

NotesViewEntryCollection als Rueckgabewert einer Funktion

<< < (2/2)

geppertb:
Danke ZaLudtske,

ich habe es getestet und es funktioniert, fuer diejenigen die das gleiche Problem haben wie ich schreibe ich noch wie meine funktion richtig aussieht:



--- Code: ---Function dbwsBuscarSecoes(sIdIdioma As String, myView As NotesView ) As NotesViewEntryCollection
On Error Goto ErrorHandler

Dim chave As String


chave = sIdIdioma

Set dbwsBuscarSecoes = myViewGetAllEntriesByKey(chave, True)

Exit Function

ErrorHandler:

Call terrTratarErro( Session, "", "dbwsBuscarSecoes", Error$, Err, Erl )
Exit Function

End Function
--- Ende Code ---


und der Aufruf:


--- Code: ---        Dim myVar As NotesViewEntryCollection
        Dim myView As NotesView

        Set myView = db.getView("($BDWS-SECA)")
myVar = dbwsBuscarSecoesx("PT", myView)
Msgbox myVar .Count
--- Ende Code ---

Navigation

[0] Themen-Index

[*] Vorherige Sete