关于在BS端搜索的问题

原因是这样的，在BS端搜索界面里输入搜索条件，有时能搜索出想要的文档，有时候却搜索不到任何内容，可是数据库里是明明有这个文档的.

下面是代码，主要是a1的值

Function searchcon_bs(doccur As NotesDocument ) As String 
Dim strser As String 
'第一个条件
If doccur.a4(0)<>"" Then
strser=strser + "&a4=""" +Trim(doccur.a4(0)) + """"
End If
If doccur.a1(0)<>"" Then
strser=strser +  "&a1=""" +Trim(doccur.a1(0)) + """"
End If
searchcon_bs=strser
End Function

如果我想要模糊搜索我应该怎么写代码?

急！！！！！！

新手学习中，请高手多多指点，谢谢了。 --------------------编程问答-------------------- 有个什么getdocumentbykey. --------------------编程问答-------------------- 可以这样子来模糊查询

dim formulars as string
dim curdb     as notesdatabase
dim docs      as notesdocumentcollection


formulas = "@like(subject;""" + "%"+doc.title(0) + "%"+""""+")"
Set docs = curdb.search(formulas,Nothing,0)

--------------------编程问答--------------------

引用 2 楼 meng2001 的回复:

可以这样子来模糊查询

dim formulars as string
dim curdb as notesdatabase
dim docs as notesdocumentcollection


formulas = "@like(subject;""" + "%"+doc.title(0) + "%"+""""+")"
Set docs = curdb.search(for……

你给的这个模糊查询在SB端测试时提示“查询保存查询条件出错", --------------------编程问答-------------------- 用这个试试strser=strser + "@contain(&a4;""" +Trim(doccur.a4(0)) + """)" 

补充：企业软件 ,  Lotus