Domino 9 und frühere Versionen > ND6: Entwicklung

Evaluate gibt nichts zurück

(1/1)

Alexis:
Hallo Forum,

weiss jemand, warum ich bei Evaluate keinen Wert zurück bekomme? Fehlermeldung: Variant does not contain a container


--- Code: ---Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim PickList As Variant
Dim nam As String

Set db = session.CurrentDatabase
PickList = ws.PickListStrings( PICKLIST_NAMES )
nam = session.CreateName( PickList(0)).common
Eval = Evaluate( |@DbLookup("":"NoCache";Servername:"Names.NSF";"($Users)";nam;"Department")| )
End Sub
--- Ende Code ---

Alexis

Driri:
Du darfst nam nicht direkt mit in die Formel schreiben, sondern mußt dir den Formelstring zusammenstricken.

Also etwa so :

|@DbLookup("":"NoCache";Servername:"Names.NSF";"($Users)";"| & nam & |";"Department")|

Lossa:
Hi,

du möchtest doch nach dem Inhalt von nam Suchen?! und das auf dem Server Servername !!

--- Zitat ---Eval = Evaluate( |@DbLookup("":"NoCache";Servername:"Names.NSF";"($Users)";nam;"Department")| )

--- Ende Zitat ---
Also musst du doch ersteinmal den richtigen String @DBLookup...
zusammenbauen und dann an eval übergeben.
Warum nutzt du den nicht einfach reines LotusScript


Set dbname = sessio.getdatabase(db.server,"names.nsf")
Set view = db.getview("($users)")
set doc = view.getdocumentbykey(nam)
department = doc.department(0)

Alexis:
Danke an Euch beide.

Beide Tipps bringen mich weiter.

Alexis

Navigation

[0] Themen-Index