Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: Alexis am 30.08.06 - 16:14:03

Titel: Evaluate gibt nichts zurück
Beitrag von: Alexis am 30.08.06 - 16:14:03

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

Alexis

Titel: Re: Evaluate gibt nichts zurück
Beitrag von: Driri am 30.08.06 - 16:17:25

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")|

Titel: Re: Evaluate gibt nichts zurück
Beitrag von: Lossa am 30.08.06 - 16:22:29

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")| )

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)

Titel: Re: Evaluate gibt nichts zurück
Beitrag von: Alexis am 30.08.06 - 16:23:58

Danke an Euch beide.

Beide Tipps bringen mich weiter.

Alexis