我想做个试图，把通论录里边所有注册的人员信息列出来

herixin

请问怎么解决呀？程序的语句是什么呀？麻烦各位了！

finewell

首先想确认一下你是想在通讯录里做视图吧，那就做一个视图的选择公式为创建个人文档的表单信息就好了嘛。也就是在视图的VIEW SELECTION中写:form="创建文档的表单的名称".

herixin

首先谢谢了，我是在其他库里想通过一定编程把通讯录的人员信息引到那个库所在的视图里

One.Only

刚好有一段现成的代码，效果参见 http://UAOffice.vicp.net/ 的系统管理中的用户列表。
        Dim s As New notessession
        Dim dbName As notesdatabase
        Dim db As notesdatabase
        Dim vwName As notesview
        Dim vw As notesview
        Dim docPer As notesdocument
        Dim docNew As notesdocument
        Dim docDel As notesdocument
        Dim Cl As notesdocumentcollection
        Dim NName As notesname
       
        On Error Goto errorhandle
        Set db=s.currentdatabase
        Set dbName=New notesdatabase(db.server,"names.nsf")
       
        Set vw=db.GetView("UserReg")
        Set docNew=vw.GetLastDocument()
        Do While Not (docNew Is Nothing)
                Set DocDel=DocNew
                Set docNew=vw.GetPrevDocument(docNew)
                Call docDel.remove(True)
                Set DocDel=Nothing
        Loop
        Call db.updateftindex(True)
        Set vwName=dbName.getview("($VIMPeople)")
        Set docPer=vwName.GetFirstdocument()
        Do While Not (docPer Is Nothing)
                Set docNew=db.CreateDocument()
                Set NName=New notesname(docper.FullName(0))
                docNew.form="UserReg"
                docNew.UserName=NName.Abbreviated
                docNew.LogonUserName=docPer.ShortName(0)
                docNew.MailDb=docPer.MailFile(0)
                docNew.CompanyName=docPer.CompanyName(0)
                Call docNew.save(True,False)
                Set docPer=vwName.GetNextDocument(docPer)
        Loop
       
        Exit Sub
ErrorHandle:
        Msgbox "Eorror In [updatepersonlist]: "+Error$+" at line "+Cstr(Erl)