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