读者域的问题

[sxch2001]

我在数据库的表单设计中增加了一个读者域,初值为"[reader]"这个角色,然后在
acl里添加这个角色,最新的记录可以看到,以前的记录却看不到,怎样更新让以前的记录也可以看到?

[长颈叔叔]

将旧文档打开，编辑，再保存一次即可。
文档多的话，可以考虑写个代理完成

[sxch2001]

长颈叔叔
代理怎么写呢?

[sxch2001]

我这样写可以吗?
Sub Initialize
Dim session As New notessession
Dim db As notesdatabase
Set db=session.currentdatabase
Dim doc As NotesDocument
Dim dc As NotesDocumentCollection

Set dc=db.AllDocuments

For j=1 To dc.Count
Set doc=dc.GetNthDocument(j)
If doc.GetItemValue("reader4")<>"[reader]" Then
Call doc.AppendItemValue("reader4",[reader])
Call doc.Save
End If
Next
End sub

[hellokan]

这个代理用公式写最简单了!