原理:
文档中有一个操作,点击之后开打回复表单,将主文档的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 = {[
End If
curdoc.reportBody = htm
End Sub
=================
效果:
回复时间 | 回复人 | 回复内容 | 操作 |
---|---|---|---|
2004-8-18 15:19:20 | xyn | afasfasfasdf asdfawfasdf asfasdfasd | 编辑 |
2004-8-18 15:24:53 | xyn | tttttttt t tttttttttt | 编辑 |
2004-8-18 16:07:44 | xyn | 保存关闭 任务标题: 回复内 | 编辑 |