当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。
記事そのもののリンクについてはご自由に行っていただいてよいです。

テクてく Lotus 技術者 Slack に参加しよう!

2008年6月19日木曜日

DB中の各フォームのフィールド一覧

ノーツDBのフォームにどのようなフィールドが存在しているのかを調べる方法です。
ノーツ文書ではなく、フォームのフィールドというところがミソ。

サンプルは、現在のノーツDBの各フォームに作成されているフィールドの一覧を表示するものである。

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim title As String
    Dim sbj As String
    
    Set db = session.CurrentDatabase
    'xはNotesFormクラスが返される
    Forall x In db.Forms
        'x.Nameはフォーム名が返される
        title = x.Name
        sbj = ""
        i = 0
        'yにはxフォームのフィールド名が入る
        Forall y In x.FIelds
            i = i + 1
            sbj = sbj & Cstr( i ) & "." & y & Chr$(10)
        End Forall
        Messagebox sbj, 0, "【" & title & "】のフィールド一覧"
    End Forall
End Sub



0 件のコメント: