lotus模糊查询。

我这个是有 louts 代理写的一个模糊查询的函数
这是我今天花了半天的时间才搞顶的。感觉网上信息少了点，就贴出来了，呵呵……

1。首先 弹出对话框 ，用户在该对话框中 输入要查询的用户名字
2。获得输入信息，然后在数据库中 进行模糊查询
3。关键是查询语句(文中黑体字所示)，他语句大家可以不管
4。其代码如下

Sub Initialize

‘定义变量
Dim workspace As New NotesUIWorkspace
Dim response As Variant ‘获取用户输入数据
Dim dialogBox As String  ‘messagebox的标题
Dim userName As String ‘示例的用户名
Dim seach_userName As String ‘具体进行搜索的用户名
‘指定数据库
Dim db As New NotesDatabase(“devserver1/Demo/HZSZF/CN”,”esoa/document/fileinner.nsf”)
Dim collection As NotesDocumentCollection
Dim count_read As Integer
Dim count_noread As Integer
‘初始化变量
count_read=0
count_noread=0
userName = “曹胜男”
dialogBox = “查询结果”

‘跳出一个prompt，让用户输入 名字 ，按确定后进行查询
response = workspace.Prompt (PROMPT_OKCANCELEDIT,”输入名称”, “例如：”+userName, username)
‘根据输入情况，进行处理
If Isempty (response) Then’用户点击，取消 按钮
Messagebox  “你没有进行查询！”, , dialogBox
Elseif  response=”请输入你要统计的人员名称” Or response=”" Then’用户点击，取消 按钮
Messagebox  “请输入人员名称！”, , dialogBox
Else
username=response

‘设置查询语句，查询的是 已读信息
‘其中视图为：FileReceive_Form；查询条件为：该视图中的browserQueryOS中含有 username
 searchFormula = |Form = “FileReceive_Form” & @contains(browserQueryOS;”|+username+|”)|
  Set collection = db.Search(searchFormula,Nothing,0)
count_read=collection.Count

searchFormula = |Form = “FileReceive_Form” & @contains(browserPostOS;”|+username+|”)|
Set collection = db.Search(searchFormula,Nothing,0)
count_noread=collection.Count

‘输出结果
Messagebox userName &” 已读：” & count_read & “件 未读：” & count_noread & “件”, , dialogBox

End If

End Sub