VB6(OCX)

○RDFドキュメントデータ設定後、フィールドの値を変更する例（帳票にページ番号を入れる）

'プレビューコントロールにRDFドキュメントデータを設定します。
JiveView.DocumentData = Jvrlib.DocumentData

'ページ番号と総ページ数を全ページに入れます。
For i = 1 To JiveView.PageCount
　　JiveView.Page = i
　　JiveView.FieldData("ページ番号") = CStr(i)
　　JiveView.FieldData("総ページ数") = CStr(JiveView.PageCount)
Next i

'表示するページを指定します。
JiveView.Page = 1
'表示します。
JiveView.Show