我设计了一个窗体:
1:增加了两个个域名:DT1 和DT2
2:增加了一个按钮【查询数据】
3:嵌入了一个视图视图的名叫MIAN
Sub Click(Source As Button)
Dim view As NotesView
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dt As New notesdatetime("2005/1/1")
Dim docA,docB As NotesDocument
Dim collection As NotesDocumentCollection
Dim workspace As New NotesUIWorkspace
Set db = session.CurrentDatabase
Set uidoc=workspace.CurrentDocument
Set uiview = workspace.CurrentView
Set view = db.GetView("main")
'//显示当前视图中记录条数
Messagebox(view.EntryCount)
'//组合查询条件
sTime=uidoc.fieldgettext("dt1")
eTime=uidoc.fieldgettext("dt2")
formular={form="Form1"&DT1 >=[} + sTime +{]&DT2 <=[} + eTime + {]}
'//Refresh后显示的记录条数与之前保持一致,实际上应该发生变化
view.SelectionFormula = formula
view.Refresh
Messagebox(view.EntryCount)
End Sub
但是运行后视图内容以及记录数目没有任何改变,谢谢了
------解决方案--------------------
我们一般都是代理使用FTSearch,得到的结果拼接成XML,然后进行解析
------解决方案--------------------
可以用分类视图