精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● 群件>>开发>>脚本LotusScript>>请教删除私有视图问题。

主题:请教删除私有视图问题。
发信人: jinlianshuang( WA)
整理人: kamkam(2002-05-01 22:55:09), 站内信件
    我编了一个快速删除私有视图过程,以前是好用的,现用新建一个模版,生成一个数据库,发现不能用了。
    原因是私有视图的标记变为"pPYV",而不是"pYV",并且私有视图运行不正常。
    为什么,高手们?是不是私有视图生成错误?"pPYV"是什么类型的视图?
     
     Dim w As New notesuiworkspace
     Dim session As New notessession 
     Dim db As notesdatabase 
     Dim uidoc As notesuidocument


     Dim doc As notesdocument 
     Set db=session.currentdatabase 
     
     Set uidoc=w.currentdocument
     Set doc=uidoc.document
     uidoc.editmode=True
     
     Forall i In db.views 
          Set doc=db.getDocumentByUNID(i.universalID) 
          viewflag=doc.getItemvalue("$flags") 
          If viewflag(0)="pYV" Then 
               Call i.remove
          End If 
     End Forall



     

[关闭][返回]