ビュー名の一覧を表示する

復帰第一弾です。
まだ、多少ぼけてるところがあるので、簡単なものにします。

DBのビューの一覧を取得するものです。
と言いつつ、フォルダも取得されるので、そこは注意してください。
フォルダは取得したくない場合は、NotesViewクラスのIsFolderプロパティが
Falseのものだけを取得すると良いでしょう。

サンプルはフォルダも含めて取得して、一覧をプロンプト表示するようにしています。

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim view As NotesView
    Dim i As Integer
    Dim sbj As Variant
    
    Set db = session.CurrentDatabase
    
    i = 1
    'db.Viewsは、データベースのビューを全部取得する(戻りは配列でくる)
    'どれだけの配列か分からないので、Forall関数で、繰り返し処理を行う(配列の回数分行う)
    Forall x In db.Views
        Set view = x
        'view.Nameで、そのビューの名前を取得する
        sbj = sbj & Cstr( i ) & ". " & view.Name & Chr$(13)
        i = i + 1
    End Forall
    
    Messagebox sbj, 0, "ビュー一覧"
End Sub




Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

コメント