需要实现查询,自己写了一个简单的,刚开始学,请大家帮忙看看哪有错误。非常感谢!
Sub Initialize
Dim session As New notessession
Dim db As NotesDatabase
Dim curdoc As notesdocument
Dim dc As Notesdocumentcollection
Dim doc As NotesDocument
Set doc=session.documentcontext '定义doc为当前文档
Dim sq As String '定义搜索的参数
Dim ss As String
Set db=session.currentdatabase
ss=doc.name
sq="form='peopledatum'"
sq=sq+" & @Contains(name;'"+ss+"')"
If sq<>"" Then
Set collection=db.FTSearch(sq,0)
End If
For i=1 To collection.count
Set curdoc=collection.getnthdocument(i)
unid=curdoc.UniversalID
tdb=Evaluate("@ReplaceSubstring(@Subset(@DbName;-1);'\\';'/')")
url="/"+tdb(0)+"/0/"+unid+"?opendocument"
t1=curdoc.name
t2=curdoc.nation
t3=curdoc.zzmm
Print|<TR><TD align=center width='100' style='word-break:break-all' class='black' height='17'><a href="+url+">| +t1+|</a></TD>|
Print|<td height=25 style="line-height:15px" align=center>|+ t2 +|</td>|
Print|<td height=25 style="line-height:15px" align=center>|+ t3 +|</td>|
Print|</tr>|
Next
End Sub