对需要删除的文档判断
set doc = dc.getfirstdocument
while not doc is nothing
if doc.form = "<form name>" and passornot域为“yes” then
if currentacceslevel>=EDITOR then
continue = true
end if
1、在表单的隐藏域中加入名为“allowedit”的域,可编辑,并且在表单中声明
Dim allowedit As Integer
2、可以做一个"编辑"操作按钮,在隐藏操作中添加条件,符合条件的用户则可以看到该按钮,可以编辑、修改,不符合条件的用户则看不到该按钮。
3、在按钮的click事件中加入Sub Click(Source As Button)
Dim workspace As New notesuiworkspace
Dim uidoc As notesuidocument
Set uidoc=workspace.currentdocument
allowedit=True
uidoc.editmode=True