ComputeWithForm使って空の文書を作る

LotusScriptで新規に空の文書を作成したい

バックエンドで内容が空の文書を予め作っておきたいとき。

createdocumentで文書を作成した状態だと､フィールドも全然持ってない、ほんとに空の文書になるので、フィールドの作成とかvalueのセットとかを全部自分で書くのは面倒だなぁと思ったのですが､notesdocumentのComputeWithFormを使うと楽々でした。
自動で作った文書をビューに出したいような時に。

createdocumentで新規に文書を作って､form="○○"とフォーム名だけ指定して､computeWithForm。

---
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument

Set db = session.CurrentDatabase
Set doc = db.createdocument

doc.Form = "Main"
call doc.ComputeWithForm( False, False )
Call doc.Save( True, True )
---

これでdocは、"Main"フォームを元にした新規文書状態に(^^)。
もちろん他のフィールドにも値を指定しておけば､値は指定したものが有効になります。

目次に戻る