06.請問要如何將資料庫的所有視界問題

將資料庫的所有視界的名稱收集放進套表的對話清單的欄位中。
'-------------------------------------------------------------------------------------
Make a new view named "Views", with no selection formula. Make the first column title "Title" and the formula $TITLE.

Somewhere in the database make a temporary button containing the following code. Press the button just once. After that, you can discard the button.


Sub Click(Source As Button)
Dim session As New NotesSession
With session.CurrentDatabase
With .GetDocumentByUNID(.GetView("Views").UniversalID)
.~$FormulaClass = "8"
.Save True, False
End With
End With
End Sub
'-------------------------------------------------------------------------------------