lotus domino动态选择多个执行人

最新推荐文章于 2020-06-24 06:12:22 发布

wendykui

最新推荐文章于 2020-06-24 06:12:22 发布

阅读量484

点赞数

CC 4.0 BY-SA版权

分类专栏： lotus 文章标签： lotus

本文链接：https://blog.youkuaiyun.com/wendykui/article/details/69568761

lotus 专栏收录该内容

4 篇文章

订阅专栏

本文介绍了一个使用 Lotus Notes 进行数据处理的示例，包括如何利用 VBA 脚本操作 NotesDocument 对象，从指定视图中获取文档集合，并更新文档中的特定字段值。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub Initialize
Dim session As NotesSession
Set session = New NotesSession
Dim doc As NotesDocument
Set doc = session.DocumentContext
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim dc As NotesDocumentCollection

'赋值前先清空旧值
For i=1 To 5
  Call doc.Replaceitemvalue("txVender_"+CStr(i), "")
Next

'获取组织架构数据库及视图
'找到数据库AIS_Org.nsf下的视图v_or_person_by_com_departmentID，通过视图去获取文档
'文档是存在数据库里面（xxxx.nsf）里面的，通过“视图选择”筛选我想要的文档，
'代理可以通过视图获取到文档，然后通过文档对象获取文档里面具体域的值。
Dim dbpeizhi As NotesDatabase
Set dbpeizhi = session.GetDatabase("","oadata\AIS_Org.nsf")

Dim viewpeizhi As NotesView
Set viewpeizhi = dbpeizhi.GetView("v_or_person_by_com_departmentID")
Dim tempdoc As NotesDocument
Dim searchkey() As String

Dim itemD As NotesItem
Set itemD = doc.GetFirstItem("receiveSuppier")

Dim receiveSuppiers As NotesItem
Set receiveSuppiers = doc.GetFirstItem("receiveSuppiers")
doc.receiveSuppiers=""
If Not itemD Is Nothing Then
  For n = 0 To UBound(itemD.Values)
   Set dc = viewpeizhi.GetAllDocumentsByKey(itemD.Values(n))
   For i = 1 To dc.count
    Set tempdoc = dc.GetNthDocument(i)
    Call receiveSuppiers.AppendToTextList(tempdoc.txtUsername)
    Call doc.Replaceitemvalue("txVender_"+CStr(n+1), tempdoc.txtUsername(0))
   Next
  Next
End If
' Call doc.Save(True,True)
'Call doc.ReplaceItemValue("liarsonOfficeOpinions",string1)
End Sub