最简单的增、删、查代理

最新推荐文章于 2024-05-01 09:32:31 发布

szheng1989

最新推荐文章于 2024-05-01 09:32:31 发布

阅读量454

点赞数

分类专栏： Domino 文章标签： session 文档

本文链接：https://blog.csdn.net/szheng1989/article/details/6699235

版权

Domino 专栏收录该内容

56 篇文章 0 订阅

订阅专栏

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