Domino 9 und frühere Versionen > ND6: Entwicklung

Userroles - Scriptfehler

<< < (2/2)

rar:
1.)
Evaluate liefert dir ein Array zurück
Also
rollen(0) = "erste UserRole"
rollen(1) = "zweite ....

Dim rollen As Variant
rollen = Evaluate( "@Userroles" )
Forall x in rollen
Msgbox x
end Forall
Damit bekommst du alle Rollen, die der User hat nacheinander angezeigt.

2.)
Um User aus einer Gruppe auszulesen brauchst du eine rekursive Funktion, da in einer Gruppe ja weitere Gruppen stehen können.

Thomas Schulte:
Weil Evaluate ein Variant zurückgibt und du Variants nicht in der Messagebox direkt ausgeben kannst. Mit Rollen(0) würde das in diesen Fall gehen.

dirk_2909:
1)
rollen ist vom Typ Variant

Geht nur so

if Not( IsEmpty( rollen ) Then
  forall vRole in rollen
   msgbox cstr( vRole )
  end forall
end if

2) Du musst anhand des Gruppennamens das Gruppen-Dok im DD holen und dort das Feld "Members" auslesen

Dirk

dirk_2909:
War ich wieder mal zu laaannngsaaammmmm..  :-\

wuwu:
Danke Jungs,

bin heute total auf der Leitung gestanden, so ein Tag, der sollte schnell vergehn!

Mfg Horst

Navigation

[0] Themen-Index

[*] Vorherige Sete