文件名称：Lotus Notes常用代码
文件大小：49KB
文件格式：DOC
更新时间：2013-09-21 03:09:38
Lotus Notes
Lotus Notes常用LotusScript代码 示例： 1.检测当前用户是不是文档的创建者,如果不是,不允许编辑文档。 Sub Querymodechange(Source As Notesuidocument, Continue As Variant) Dim session As New NotesSession Dim doc As notesdocument Dim userName As New NotesName(session.UserName) Set doc=source.document If Not ( source.EditMode ) Then If ( doc.authors(0) = username.CANONICAL ) Then continue=True Else Msgbox \"您不是此文档的创建人,不可以修改!\",0,\"文档数据库\" continue=False End If End If End Sub