实现多页文本的显示
现假设合同表单域名为“Contract”，页码域名为“pageNo”，页数域名为“pages”，合同号域名为“contractNo”。
为了保证填写下一张页面时，能得到上一张页面的值，必须在“Contract”表单的属性里选择“公式继承选定文档的数值”。这里最关键的是要继承合同号、页码和页数信息。为了在新的页面里得到上述信息的正确值，还应再在上述域的缺省值里加上一些公式。在“contractNo”域里的缺省值为：contractNo。可以原封不动地把上一页的合同号拷贝到新的页面，以保证是同一笔交易。在“pageNo”域里的缺省值为：
@if(@environment("isNext")="True"; @do(@environment("isNext";"");pageNo+1);1)。
上面的公式可以辨别当前是第一页还是继续填写的页，其中“pages”域里的缺省值为pageNo。
需要注意的是，虽然继续填写的新页的页数已经增加了，但是并没有改变前面所填页面上的页数值。从符合逻辑的角度来说，前面已填写页面的页数，应该在最后所有页面填完之后才添加上去，所以在新填写的页面未保存时不能将页数统一为新页上的页数。
在“继续填写下一页”按钮按下的时候，执行的操作包括两个：保存并关闭当前页面和打开新的页面。这里采用Lotus Script编写代码，详细代码如下：
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As NotesSession
Set uidoc = workspace.CurrentDocument
If uidoc.editmode=True Then
Call uidoc.save
End If
Call session.SetEnvironmentVar("isNext","True")
'设置用于区分是否下一页的标志
Call uidoc.close
Call workspace.ComposeDocument("","","Contract")
这里在保存的时候还要保证某些信息（如页数）在该笔交易下的所有页面保持同步。这就需要在保存完当前页面后修改其他页面的相应信息。这些操作的代码可以在合同表单的“postsave”事件里写。具体代码如下：
Sub Postsave(Source As Notesuidocument)
Dim session As New notessession
Dim db As notesdatabase
Dim doccol As notesdocumentcollection
Dim datetime As notesdatetime
Dim doc As notesdocument
Set db=session.currentdatabase
formsearch$="form=""Contract""&&contractNo="""+source.document.contractN o(0)+""""
Set doccol=db.search(formsearch$,datetime,0)
If doccol.count＞0 Then
For i=1 To doccol.count
If i=1 Then
Set doc=doccol.getfirstdocument
Else
Set doc=doccol.getnextdocument(doc)
End If
If doc.universalid＜＞source.document.universalid Then
doc.pages=source.document.pages(0)
'可以设置其他需要字段的值
Call doc.save(True,False)
'使之与所有页面统一
End If
Next
End If
End Sub
现在，多页文档已经建立好了，还需要对它进行浏览。浏览的方式可以为“上下翻页式”或“到指定页式”，两者原理是一样的，这里以浏览下一页为例加以说明。
首先，创建一个按钮“浏览下一页”，并在按钮的click事件里写以下Lotus Script代码：
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim doccol As NotesDocumentCollection
Dim datetime As Notesdatetime
Set uidoc=workspace.CurrentDocument
Set db=session.currentdatabase
SearchFormula="Form=""Contract""&&contractNo="""+uidoc.document.contract
No(0)+"""&&p ageNo="""+Cstr(uidoc.document.pageNo(0)+1)+"""" '可以指定任意页
If uidoc.editmode=True Then
Call uidoc.save
End If
Call uidoc.close
Set doccol= db.search(SearchFormula,datetime,0)
Set doc=doccol.getfirstDocument
Set uidoc=workspace.EditDocument( False , doc)
至此，多页文本的创建与浏览已经介绍完了，但是考虑到有删除部分页的可能，所以对于删除指定页的处理也是必需的。删除指定页的基本过程应包括：删除指定页的文档、查找所有该交易的文档、修改这些文档的页数域和修改页码域值大于删除页页码的文档页码域。
以下是实现这一过程的Lotus Script函数代理：
Function deletedocument(doc As notesdocument)
Dim session As New notessession
Dim db As notesdatabase
Dim doccol As notesdocumentcollection
Dim datetime As notesdatetime
Set db=session.currentdatabase
contractno$=doc.contractNo(0)
pageno=doc.pageNo(0)
If doc.remove(0) Then
formsearch="form=""contract""&&contractNo="" "+contractno$+""""
Set doccol=db.search(formsearch$,datetime,0)
For i=1 To doccol.count
If i=1 Then
Set doc=doccol.getfirstdocument
Else
Set doc=doccol.getnextdocument(doc)
End If
doc.pages=doc.pages(0)-1
If doc.pageNo(0)＞pageno Then
doc.pageNo=doc.pageNo(0)-1
End If
Call doc.save(True,False)
Next
End If
End Function
以上是在Lotus Notes应用中，对多页文本的一种处理方法。
本文地址：http://com.8s8s.com/it/it25241.htm