Domino 9 und frühere Versionen > Entwicklung

@IsMember in LotusScript

(1/2) > >>

Karin:
Hallo,

Gibt es eine Übersetzung für @IsMember nach LotusScript?

Gruß Karin

Doc Torte:
ich würd die Feldwerte/ Liste als Array auslesen und dann mit einer Schleife duchsuchen, ist vielleicht nicht die beste, aber immerhin eine Methode.

Don Pasquale:
Das war mal irgendwo hier im Forum,
leider weiss ich nicht mehr wo.

Bei mir klappt das Prima

Function RoleEnabled(sRole As String) As Integer
   
   Dim vResult As Variant
   
   vResult = Evaluate(|@IsMember("| & sRole & |"; @UserRoles)|)
   
   If vResult(0) = 1 Then
      RoleEnabled = 1
   Else
      RoleEnabled = 0
   End If  'If vResult(0) = 1
   
End Function

Ciao

Don Pasquale

Axel:
Hi,

diesen Code habe ich mal im Web gefunden.

...
dim i as NotesItem, flag as integer

set i = doc.GetFirstItem("fieldname")
flag = false

forall v in i.Values
if cstr(v) = ValueToCheckFor$ then flag = true
end forall
...


Axel

ata:
... in R5 gibt es auch noch ArrayGetIndex( Array , Wert )

Dim vValue As Variant
Dim flag as Variant

flag = False
vValue = Evaluate("@UserRoles") ' # nur als Beispiel
If Not IsNull(ArrayGetIndex( vValue , "[Admin]") ) Then flag = true

ata

Navigation

[0] Themen-Index

[#] Nächste Seite