删除多余文档

【文件属性】：
文件名称：删除多余文档
文件大小：30KB
文件格式：DOC
更新时间：2017-02-17 01:25:31
LotusScript 删除 多余文档 我们可以需要将数据库中，同一内容的文档保留一个，而删除多余的文档。本程序即提供此功能。 准备： ·视图：ViewName,处理在此视图中的文档 ·表单域：FieldName,判断文档此域是否存在相同内容，如果相同则视为同一文档，视图第一列需要以此域排序。 操作按钮： Sub Initialize Dim ss As New notessession Dim db As notesdatabase Set db = ss.currentdatabase Dim vi As notesview