通用查询代码,Notes和Web均支持,拷贝吧![在一张表单中实现]

[gjd111686]

表单的JS Header
function UpDate()
{
window.status = "生成查询结果记录......";
form=document.forms[0];
m_list0=form.List0.value;
m_list1 = GetSelectValue(form.List1);
m_list2 = GetSelectValue(form.List2);
m_list3 = GetSelectValue(form.List3);
m_list4 = GetSelectValue(form.List4);
m_list5 = GetSelectValue(form.List5);
m_list6 = GetSelectValue(form.List6);
if(m_list0!="")
{
m_0="@contains(UserName;"+'"'+m_list0+'"'+")"+" & ";
}
else
{
m_0="";
}
if(m_list1!=null)
{
m_1="Num="+'"'+m_list1+'"'+" & ";
}
else
{
m_1="";
}
if(m_list2!=null)
{
m_2="DutyList="+'"'+m_list2+'"'+" & ";
}
else
{
m_2="";
}
if(m_list3!=null)
{
m_3="SubjectionUnit="+'"'+m_list3+'"'+" & ";
}
else
{
m_3="";
}
if(m_list4!=null)
{
m_4="@contains(RateList;"+'"'+m_list4+'"'+")"+" & ";
}
else
{
m_4="";
}
if(m_list5!=null)
{
m_5="Tel="+'"'+m_list5+'"'+" & ";
}
else
{
m_5="";
}
if(m_list6!=null)
{
m_6="EMail="+'"'+m_list6+'"'+" & ";
}
else
{
m_6="";
}
m_str=m_0+m_1+m_2+m_3+m_4+m_5+m_6;
m_str=m_str.substring(0,m_str.length-3);
form.QueryString.value =m_str;
}
function GetSelectValue(combox) {
for (i = 0; i < combox.length; i++) {
if (combox.options[i].selected) {
return combox.options[i].text;
}
}
return null;
}
查询代理:
Sub Initialize
Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim item As notesitem
Set db=session.currentdatabase
Set doc=session.documentcontext
Set item=doc.getfirstitem("QueryString")
Dim collection As notesdocumentcollection
Dim m_datetime As New notesdatetime("")
Call m_datetime.setnow()
Call m_datetime.adjustyear(-5) '当前时间减去5年
searchFormula$ = item.text

Dim delcollection As notesdocumentcollection
Set delcollection=db.Search("Form=""UserInfo""",m_datetime,0)
Call delcollection.removeallfromfolder("ResultSetView")
Set collection = db.Search(searchFormula$,m_datetime,0)
Dim itemTemp As notesitem
Set itemTemp=doc.replaceitemvalue("Count",collection.count)
Call collection.putallinfolder("ResultSetView")
End Sub

[gjd111686]

有意见，赶紧提，我改正后继续发布

[Johnses]

呵呵，多谢！