ビューの文書を順番にすべて取得する(NotesView クラス/GetFirstDocument, GetNextDocument メソッド)

Sub Initialize
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim view As NotesView
	Set db = session.Currentdatabase
	Set view = db.GetView("vwAll")
	Set doc = view.GetFirstDocument
	While Not(doc Is Nothing)
		Print "製品名: " + doc.ProductName(0)
		Set doc = view.GetNextDocument(doc)
	Wend	
End Sub





LotusScript 入門 Step3-2 NotesView クラス/GetFirstDocument, GetNextDocument メソッド

8行目 NotesView クラスの GetFirstDocument メソッドを使用して、ビューの最初の文書を取得
9行目 While ステートメントを使用して、変数 doc が Nothing になるまで 9~12行を繰り返す
10行目 製品名を出力
11行目 NotesView クラスの GetNextDocument メソッドを使用して、変数 doc の次の文書を取得。取得した次の文書は、変数 doc に格納(上書き)

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





No comments yetLogin first to comment...