急!大家帮忙看看,多条件查询问题!在线等!!!!

[西客小贝壳]

这边有一个查询表单,上面有两个字段,日期型的(域age1,age2),用于查询年代之间的人(1983年到1999年),还有几个下拉框(text1,text2,tex3),全部是文本型的,用FTSearch查询符合以上条件的记录.

直接用FTSearch可行否?怎么写这条语句 ?

searchFormula$ = "Form = 表单1 & condition1 =""text1.text"" & condition2= ""text2.text""....日期怎么表示呀 "

要求 age1< 值 <age2 之间

Set collection = db.Search(searchFormula$,nothing,0)

这个searchFormula$该怎么写?

[西客小贝壳]

Set collection = db.FTSearch(searchFormula$,nothing,0)
上面写错老

大家给个办法呀,今天想把它搞定了

[Frozencrown]

你用公式转化下成日期类型的就可以比较用了

[tianshui8085]

searchFormula$ = {Form = "表单1"&condition1=""text1.text"&condition2= ""text2.text"&condition3>=}+@TextToTime(age1)+{&condition3<=}+@TextToTime(age2)

[西客小贝壳]

Sub Initialize
Dim s As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim dc As NotesDocumentCollection
Dim v As NotesView
Dim v2 As NotesView
Dim vc As NotesViewEntryCollection
Dim z(5) As String

Set doc = s.DocumentContext




z(0)=doc.GetItemValue("PPage")(0)
z(1)=doc.GetItemValue("PPxueli")(0)

z(2)=doc.GetItemValue("PPzz")(0)
z(3)=doc.GetItemValue("PPsex")(0)
z(4)=doc.GetItemValue("PPzyjs")(0)
z(5)=doc.GetItemValue("PPgrjs")(0)


Msgbox doc.GetItemValue("PPage")(0)
Msgbox doc.GetItemValue("PPxueli")(0)
Msgbox doc.GetItemValue("PPzz")(0)
Msgbox doc.GetItemValue("PPsex")(0)
Msgbox doc.GetItemValue("PPzyjs")(0)
Msgbox doc.GetItemValue("PPgrjs")(0)

Set db = s.CurrentDatabase

searchformula$={Form="$$Viewtemplate for SearchTemplate" & birthday >=2003-08-08}
Set dc=db.FTSearch(searchformula$,Nothing,0)/////这行出错,initialize:43:type mismatch



Call dc.PutAllInFolder("SearchTemplate",Nothing,0)


End Sub

[cgs1999]

日期用“[”和“]”包含：
searchFormula$={Form="Form" & @Date(RegDate)>=[2006-01-01] & @Date(RegDate)<=[2006-10-11]}

[西客小贝壳]

Set dc=db.Search(searchformula$,Nothing,0)/////改成这个就没有错了,为啥?

[readf]

FTSearch 的第二个参数是 整型才行 不能用Nothing