Linux中国  设为主页
 收藏本站
 
当前位置: > 首页 ->企业应用 ->Lotus Notes ->Lotus Notes应用中多页文本的处理
  相关分类： 
Lotus Notes
Office 系列教程
Outlook
Sharepoint
Windows应用技巧
  站内搜索： 
热门文章排行
热门文章排行 Domino控制台指令大全(05-31)
在Ubuntu 6.10 上安装Lotus Notes 7(04-11)
Win2003下部署Lotus Domino 7服务器(05-31)
手把手教您部署Domino 7服务器(下)(05-31)
Domino服务器命令表(05-31)
精采文章排行
精采文章排行 通过 Lotus Domino Java 代理消费 We(05-31)
在R6中如何把所有外来的smtp邮件都自(05-31)
如何用用户自定义的logo来替换iNotes(05-31)
分级 IBM Lotus Domino 邮件服务器(05-31)
Domino控制台指令大全(05-31)
  ·在R6中如何把所有外来的smtp邮件都自动地·如何用用户自定义的logo来替换iNotes Web·分级 IBM Lotus Domino 邮件服务器·Domino控制台指令大全·如何禁止Norton扫描Notes·Lotus Notes应用中多页文本的处理·Domino6新功能-间接文件及其用途·备份Domino服务器的基本原则·Domino6新功能-集中目录结构

Lotus Notes应用中多页文本的处理

作者:Webmaster   来源:Linuxdby.com   点击:   日期:2007-05-31 [收藏] [投稿]

  IE是否经常中毒？推荐您



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""%26amp;%26amp;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应用中，对多页文本的一种处理方法，笔者希望读者在实际应用开发中灵活使用。


 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一页 1 2下一页

上一篇：Domino6新功能-间接文件及其用途   下一篇：如何禁止Norton扫描Notes
【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】

   相关文章:
·通过 Lotus Domino Java 代理消费 Web 服

   文章评论:(1条)
  
 请留名： 匿名评论   点击查看所有评论 论坛讨论
 

 声明：刊登此文章是为了传递更多信息,文章内容仅供参考,转载请注明出处。