RE: Help on Lotusscript chen shelley 27.Mar.12 11:59 PM a Web browser Lotus Workplace Application Database 6.5.1All Platforms
Hi, I can solve this question with two methods, as you said I have created two fields:GroupName,GroupMembers.
The first method is formula:
@If(@IsError(@Name([CN];@DbLookup("":"NoCache";@Name([Abbreviate];@ServerName):"names.nsf";"Groups";GroupName;"Members")));"";@Name([CN];@DbLookup("":"NoCache";@Name([Abbreviate];@ServerName):"names.nsf";"Groups";GroupName;"Members")))
The other method is Lotusscript:
Sub Exiting(Source As Field)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim StrName As String
Dim Nam As NotesName
Set uidoc=ws.CurrentDocument
Set doc=uidoc.Document
Dim session As New NotesSession
Dim db As NotesDatabase
Set db=session.CurrentDatabase
Dim GLBdb As NotesDatabase
Dim GLBView As NotesView
Dim GroupDoc As NotesDocument
Dim item As NotesItem
Set GLBdb=New NotesDatabase(db.Server,"names.nsf")
Set GLBView=GLBdb.GetView("Groups")
Set GroupDoc=GLBView.GetDocumentByKey(Trim(doc.GroupName(0)),True)
If Not GroupDoc Is Nothing Then
For i=0 To Ubound(GroupDoc.Members)
StrName=GroupDoc.GetItemValue("Members")(i)
Set Nam=session.CreateName(StrName)
Set item=doc.GetFirstItem("GroupMembers")
Call item.AppendToTextList(Nam.Common)
Next
End If
End Sub
If you have another question. Please send email to me:chfe1985@163.com.
Return to top
. . RE: Help on Lotusscript (chen shelley 27.Mar.12) 
Print this page
