最简单的增、删、查代理

 Sub Initialize
 '----------增----------
 Dim session As New NotesSession
 Dim doc As NotesDocument
 Set doc=session.DocumentContext
 Doc.DocId=doc.UniversalID
 Call doc.Save(True,True)
 
 '----------删----------
 Dim session As New NotesSession
 Dim doc As NotesDocument
 Set doc =session.DocumentContext
 Dim db As NotesDatabase
 Set db=session.CurrentDatabase
 Dim item As NotesItem
 Set item=doc.GetFirstItem("chr_check")
 
 Dim deldoc As NotesDocument
 
 Forall unid In item.Values
  If unid <>"" Then
   Set deldoc=db.GetDocumentByUNID(unid)
   Call deldoc.Remove(True)
  End If
 End Forall
 
 '----------查----------
 Dim session As New  NotesSession
 Dim doc As NotesDocument
 Set doc =session.DocumentContext
 Dim db As NotesDatabase
 Set db=session.CurrentDatabase
 Dim dc As NotesDocumentCollection
 Dim tdoc As NotesDocument
 
 TQuery="Form='FormWeb_Show' & chr_a='a1' & Chr_b='b1'"
 Set dc=db.Search(TQuery,Nothing,0)
 
 For i = 1 To dc.Count
  'tdoc为查询出来的文档
  Set tdoc = dc.GetNthDocument(i)
 Next
  
End Sub