用程序读names.nsf中视图的内容，但是读不出来？

[wolflice]

Dim dbNames As New NotesDatabase( db.server,"names.nsf")
Msgbox(dbNames.title)
Set viewserver=dbNames.getview("Server\Ser_vers|Servers")
Set doctmp=viewserver.getfirstdocument
'出错，读不出试图中的数据，有什么办法解决，文档中有一些保护域？
HomeUrl="string"
Msgbox(doctmp.universalid)
Do While Not (doctmp Is Nothing)
doctmp.HTTP_HomeURL=HomeUrl
Msgbox("save")
Call doctmp.dave(True,False)
Set doctmp=viewserver.getnextdocument(doctmp)
Loop

[Kenry8888]

1) db定义了吗?
2) viewserver对象得到了吗?(试着只用Server\Ser_vers)

[chenjj2002]

老兄，dbNames.getview("Server\Ser_vers|Servers")函数中，不能将视图名称和别名一起使用

[CrazyDeng]

Set viewserver=dbNames.getview("Server\Ser_vers|Servers")这句话有问题

Set viewserver=dbNames.getview("Servers")这样就可以，使用视图别名。

[wolflice]

都试过了，没用。我怀疑里面有保护域