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

LOTUSSCRIPT /COM/OLE のクラス

例:ColumnValues プロパティ
1. 列が 2 つあるビューから文書 currentDoc を取得します。最初の列はプロジェクトの期日を示します (列式はフィールド [DueDate] です)。2 番目の列はプロジェクトを示します (式は "New Project:" + Description)。

currentDoc の DueDate アイテムには「10/16/95」が含まれ、Description アイテムには「Ad Campaign for Acme」が含まれます。したがって次のようになります。

currentDoc.ColumnValues(0) equals 10/16/95 currentDoc.ColumnValues(1) equals _ "New Project:Ad Campaign for Acme"

2. [Inventory] データベースの [Products] ビューにあるすべての商品を検索するものとします。次のスクリプトは、ビューを検索してビューの各文書にアクセスし、その第 1 列の値である商品名を取得します。このスクリプトの実行結果は @DbColumn の実行結果と同じです。

server$ = "Tilburg" dbfile$ = "inventor.nsf" counter% = 1 Dim db As New NotesDatabase( server$, dbfile$ ) Dim view As NotesView Dim doc As NotesDocument Dim productList( 1 To 100 ) As Variant Dim currentProduct As Variant Set view = db.GetView( "Products" ) Set doc = view.GetFirstDocument While Not ( doc Is Nothing ) ' Get the value on the current document that shows up in ' view's first column ' Append this value to our productList array currentProduct = doc.ColumnValues( 0 ) productList( counter% ) = currentProduct Set doc = view.GetNextDocument( doc ) counter% = counter% + 1 Wend ' There are now counter% - 1 items in the productList

関連項目

ColumnValues プロパティ

用語集

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

ヘルプの使い方

すべてのヘルプ項目

用語集