Lotus Domino Designer 8.5 ヘルプ - 例:ParentDatabase プロパティ

LOTUSSCRIPT /COM/OLE のクラス

例:ParentDatabase プロパティ
1. 次のスクリプトは文書の取得元の NotesDatabase オブジェクト (db) のタイトルと ParentDatabase プロパティから返された NotesDatabase オブジェクト (ParentDb) のタイトルを表示します。db と parentDb は同じデータベース SOMEDOCS.NSF を表すため、表示されるタイトルは同じです。

Dim db As New NotesDatabase( "", "somedocs.nsf" ) Dim parentDb As NotesDatabase Dim collection As NotesDocumentCollection Dim doc As NotesDocument Set collection = db.AllDocuments Set doc = collection.GetFirstDocument Set parentDb = doc.ParentDatabase Messagebox( db.Title ) Messagebox( parentDb.Title )

2. 次のスクリプトは文書を取得してその親文書を返す関数です。文書に親文書がないとき、Nothing を返します。関数は ParentDatabase プロパティを使用して、doc があるデータベースを表す NotesDatabase オブジェクト db を取得します。スクリプトは db を取得した後、GetDocumentByUNID を呼び出し、doc の親文書を検索します。

Function GetParentDocument( doc As NotesDocument ) Dim db As NotesDatabase Dim parentDoc As NotesDocument Set db = doc.ParentDatabase If doc.IsResponse Then Set parentDoc = db.GetDocumentByUNID _ ( doc.ParentDocumentUNID ) End If Set GetParentDocument = parentDoc End Function

この関数は任意のスクリプトから呼び出し可能です。たとえば、

dim myQuestion as NotesDocument dim yourAnswer as NotesDocument '...set value of yourAnswer... set myQuestion = GetParentDocument( yourAnswer )

関連項目

ParentDatabase プロパティ

用語集

フィードバック ヘルプ または プロダクトユーザビリティ

ヘルプの使い方

すべてのヘルプ項目

用語集