原理：

文档中有一个操作，点击之后开打回复表单，将主文档的ID带过去，可以从此ID得到主文档的各种相关信息。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

function newReport(){ var f = document.forms[0] window.open("../newreport?openform&id="+f.docid.value,"","")}

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

保存过文档后，在主浏览文档的时候到视图中读出主文档的回复，然后显示：

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Sub Initialize Dim s As New NotesSession Dim db As NotesDatabase Dim view As NotesView Dim curdoc,doc As NotesDocument Dim docid,htm As String  Set db = s.CurrentDatabase Set view = db.GetView("Reports") Set curdoc = s.DocumentContext  docid = curdoc.docid(0) Set doc = view.GetFirstDocument If Not doc Is Nothing Then  htm = {[

}  htm = htm & { <　TR bgColor=#9acd32> <　TH width="20%">回复时间 <　TH width="15%">回复人 <　TH>回复内容 <　TH>操作}  While Not doc Is Nothing   If doc.docid(0)=docid Then    htm = htm & { <　TR> <　TD>}    htm = htm & (doc.Created) & { <　TD>}    htm = htm & doc.reporter(0) & { <　TD>]}    htm = htm & doc.body & {[ <　TD>}    If doc.reporter(0) = curdoc.thisuser(0) Then     htm = htm & {<　A οnclick="javascript:window.open('../Tasks/} & doc.UniversalID & {?editdocument'}      htm = htm & {,'','')" href="javascript:void(0)">编辑}    Else     htm = htm & {　}    End If    htm = htm & {}   End If   Set doc = view.GetNextDocument(doc)  Wend  htm = htm & { ]}  End If  curdoc.reportBody = htm End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

效果：

回复时间回复人回复内容操作

2004-8-18 15:19:20	xyn	afasfasfasdfasdfawfasdfasfasdfasd	编辑
2004-8-18 15:24:53	xyn	ttttttttttttttttttt	编辑
2004-8-18 16:07:44	xyn	保存关闭 任务标题： 回复内