Агенты и обновление полей

 ...
doc.Members= mem
Exit Sub

window.location.reload()
window.location.href=window.location.href

Dim session As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim nav As NotesViewNavigator
Dim entry As NotesViewEntry

Dim doc As NotesDocument
Dim cldoc As NotesDocument
Dim prid As Variant
Dim mem As Variant

Set session= New NotesSession
Set doc=session.documentcontext
prid= doc.GetItemValue( "Team" )

Set db = session.CurrentDatabase
Set view = db.GetView("PeopleByTeam")
Set nav = view.CreateViewNavFromCategory(prid (0))
Set entry = nav.GetFirstDocument

If Not(entry Is Nothyng) Then
Set cldoc = entry.Document
mem = cldoc.Members
doc.Members= mem
Call doc.Save(True, True, True)
Else
Print("No Team with such Leader")
End If
Exit Sub

 Print "<script LANGUAGE=JavaScript>"
Print "alert(""No Team with such Leader"")"
Print "</SCRIPT>"

    Set session= New NotesSession
Call session.documentcontext.compwithform()
Call session.documentcontext.save(True,False)