发信人: 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
|
|