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

テクてく 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 件のコメント: