[求助]如何使用lotus script更改读者域

fish5678

读者域允许多值，我把新的读者域的值赋给了一个字符串变量，但是使用

doc.域名=字符串变量

后，读者域并不能正常更改，请问如何更改读者域的值呢？是不是要使用列表什么的？

Dragon_1

dim item as notesitem
Set item=doc.GetFirstItem (域名)
item.IsReaders=True

即可使读者域生效。

fish5678

首先多谢了。但是我这个还不行，能帮我看一下代码吗？我的编程很业余！
我打算做个代理，批量更新作者域和读者域，Readers是读者域的名字，AuthorToEdit是作者域的名字。
先用文本框输入读者，多个人用","分开，然后再将这些人一个一个用appendTextlist添加到两个域里。可文本显示是正确的，但是读者域和作者域就是不能生效，晕了。

Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim Maneger As String
Dim item As notesitem
Dim itemB As notesitem
Dim AppendS As String
Dim BitS As String
Dim i As Integer
Dim AskValue As Integer
        Set db=session.currentdatabase
        Set dc = db.UnprocessedDocuments
        Set doc = dc.GetFirstDocument
‘输入管理员，即读者域和作者域的人员

        Maneger=Inputbox$("请输入新管理员，包括各级行，必须使用全名,多个管理员使用英文的逗号隔开","输入管理员")
        AskValue= Messagebox("确认继续更新管理员?",1, "确认?")
        If AskValue=1 Then
                While Not(Doc Is Nothing)
                        ‘清空这两个域                       
                        Set item = doc.ReplaceItemValue( "Readers", "")
                        Set itemB = doc.ReplaceItemValue( "AuthorToEdit", "")

                                             
                                          在域里逐个添加成员
                        AppendS=""
                        i=0
                        While Not(i>=Len(Maneger))
                                i=i+1
                                BitS=Mid(Maneger,i,1)
                                If BitS<>"," Then
                                        AppendS=AppendS+BitS
                                Else
                                        If item.isreaders=True Then
                                               
                                                Call item.AppendToTextList(AppendS)
                                        End If
                                        If itemB.isauthors=True Then
                                                Call itemB.AppendToTextList(AppendS)
                                        End If
                                       
                                        AppendS=""
                                End If
                               
                        Wend
                        If item.isreaders=True Then
                                Call item.AppendToTextList(AppendS)
                        End If
                        If itemB.isauthors=True Then
                                Call itemB.AppendToTextList(AppendS)
                        End If
                        ‘使这两个域生效
                        item.isreaders=True
                        itemB.IsAuthors = True
                        Call doc.Save(False, True)
                        Set doc = dc.GetNextDocument(doc)
                Wend
        End If
       
End Sub

kissAngel

ToolsRefreshAllDocs  
刷新视图或文件夹中所有文档的域。
语法
@Command([ToolsRefreshAllDocs])
用法
数据库必须打开并进入视图或文件夹。

hzhang

fish5678, 你的问题最后怎么解决的啊。怎么让读者域和作者域生效呢？我现在和你遇到同样的问题。

hzhang

我把@Command([ToolsRefreshAllDocs]) 用在view的postopen事件中，但是这会使数据库每次打开这个view的时候都要刷新其中的全部文档，很影响速度。我应该把这个公式加在哪里呢？

hzhang

而且也不能正常显示未读文档了，因为用这个命令刷新以后每个文档都变成已读的了。

hzhang

帮帮忙啊。各位~~~~~