lotus编程学习笔记

lotus 编程学习笔记用 NotesDatabase.search 方法来统计符合条件的文档个数

Sub Click(Source As Button)

Dim session As New NotesSession

Dim db As NotesDatabase

Dim collection As NotesDocumentCollection '要搜索的文档的起始时间

Dim dateTime As New NotesDateTime("01/01/96") Set db = session.CurrentDatabase

'Search 的第一个参数是用公式语言表达的搜索条件

Set collection = db.Search("Form = 'qj'",dateTime,0)

Messagebox collection.Count

End Sub

提示邮箱信息的代码

Dim s As New NotesSession

Dim db As NotesDatabase

Dim uname As String

Dim mailfileloc As Variant

Const MB_OK = 1

Const MB_ICONINFORMA TION=64 boxtype& = MB_OK + MB_ICONINFORMA TION

Set db=s.CurrentDatabase uname = monUserName

srvname = Evaluate("@Name([CN];@Subset(@MailDBName;1))") mailfileloc =

Evaluate("@Subset(@MailDBName;-1)")

Dim mydb As New NotesDatabase( Cstr(srvname(0)), Cstr(mailfileloc(0)))

Msgbox "Server: " & srvname(0) & Chr$(13) _

& "Db directory and db name: " & mailfileloc(0) & Chr$(13) & Chr$(13)_

& "The size of your mail file is: " _

& Round(mydb.Size/1048576, 2) & "Mb", boxtype&, "Mail file of " & uname & "..."

建立 /获取/修改简要表文档示例 4-2 展示了怎样建立、获取、和修改简要表文档的示例。如果没有找到这个描述文档 docProfile 那么就会建立它，然后，它就会检查这个文档中的值 Company 字段。如果没有设置这个字段，那么就会对其进行更新，并且保存新值。如果已经进行了设置那么就不会再进行更多的处理。示例 4-2 建立 /获取 / 修改简要表文档

Sub Initialize

Dim session As New NotesSession

Dim db As NotesDatabase

Dim docProfile As NotesDocument

Dim sAuthor As String

Dim itemCompany As NotesItem

Set db = session.CurrentDatabase

Set docProfile = db.GetProfileDocument("Profiles", erName)

Set itemCompany = docProfile.GetFirstItem("Company")

If itemCompany Is Nothing Then pany = "ConCrea" Call docProfile.save(True, False)

End If

End Sub

用公式打开“关于数据库” 、“使用数据库”文档 @Command([HelpAboutDatabase])

@Command([HelpUsingDatabase])

让组合框下拉时有一个空值可以选 @Explode(@Char(255):" 男":" 女")

用 Messagebox 判断用户做出的选择

Sub Click(Source As Button) answer% = Messagebox("Do you want to continue?", 36, "Continue?") If answer% = 6 Then

Messagebox "You cliked OK!" Else

Messagebox "You cliked NO!" End If

End Sub

@IsDocBeingEdited

检查文档的当前状态，如果文档正在被编辑，则返回语法

1 (True) ；否则返回 0 (False) 。

@IsDocBeingEdited

返回值 flag

布尔型

1 (True) 表示正在编辑该文档

0 (False) 表示不在编辑该文档用法该函数不能用于列公式、选择公式、代理、表单公式或视图操作公式中。常用于按钮公式、隐藏公式、域公式和表单操作公式中。

例：

tmp := @if(@IsDocBeingEdited; " 在编辑状态 ";" 不在编辑状态 "); @prompt([OK]; " 提示是否在编辑状态 ";tmp ) 相关主题 @IsDocBeingLoaded

@IsDocBeingMailed @IsDocBeingRecalculated @IsDocBeingSaved

用 NotesDocument 后台类改变 UI 文档的域值

Sub Click(Source As Button) '改变当前文档中的 Main_Status 域值

Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument

Dim doc As NotesDocument