ビューを列の値を使用して文書を検索する(NotesView クラス/GetDocumentByKey メソッド)

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim view As NotesView
	Dim key As String
	Set db = session.Currentdatabase
	Set view = db.GetView("vwAll")
	key = "L01"
	Set doc = view.GetDocumentByKey(key, True)
	If Not(doc Is Nothing) Then
		Print "製品 ID [" + key + "] の製品名は、[" + doc.ProductName(0) + "] です。"
	Else
		Print "一致する文書が見つかりませんでした。"
	End If	
End Sub





LotusScript 入門 Step3-1 NotesView クラス/GetDocumentByKey メソッド

6,9行目 製品 ID を格納するための String クラス(文字列)の変数 key を宣言。初期値“L01”を設定
10行目 NotesView クラスの GetDocumentByKey メソッドを使用して、ビューの左端ソート列(製品 ID の昇順でソート)と第1引数に指定した変数 key が一致する文書を検索。完全一致で検索する場合、第2引数には、True を指定。戻り値は NotesDocument オブジェクトであることに注意(複数の文書が一致する場合は最初の文書のみ)
11行目 変数 doc が Nothing かどうかで分岐
12行目 製品名を出力。[製品名(ProductName)]フィールドの値を取得したい場合、“doc.ProductName(0)”と記述

LotusScript
tyoshida
April 30, 2018 at 1:26 PM
Rating
0





No comments yetLogin first to comment...