Domino面试试题及答案(17)

本文适合初中级Domino开发管理面试(内含答案)

17.获得当前视图中选择了的文档？（10分）

Dim session As New notessession

Dim db As notesdatabase

Dim collection As notesdocumentcollection

Set db = session.currentdatabase

Set collection = db.UnprocessedDocuments

18.在给定数据库中遍历视图vw_users中所有的文档

Dim db As New NotesDatabase( "Ankara", "current\projects.nsf" )（10分）

Dim view As NotesView

Dim doc As NotesDocument

Set view = db.GetView( "vw_users" )

Set doc = view.GetFirstDocument

While Not ( doc Is Nothing )

....................