请各位前辈过来看一下

[BESTperson]

请各位前辈过来看一下
怎样用LS在视图中编写查找功能，并且视图换成查询结果域公式
@Command([ViewShowSearchBar])相似，但不同的是要按照所需要的域来查
不像上面这个公式是以按照所有域来查

[小木可]

我是使用的FTSEARCH和文件夹来查询的。

[BESTperson]

你能给我你地源代码吗，谢谢了

[alian1974]

查一查文檔集合的幫助.

[小木可]

Dim workspace As New notesuiworkspace
Dim session As New notessession
Dim db As notesdatabase
Dim collection As notesdocumentcollection
Dim uidoc As notesuidocument
Dim doc As notesdocument
Dim is_sql As String
Dim view As notesview
Dim vc As notesviewentrycollection
Set db=session.currentdatabase
Set view=db.getview("cxview")
Set uidoc=workspace.currentdocument
Set doc=uidoc.document
Set vc=view.allentries
Call vc.Removeallfromfolder("cxfolder")
If doc.tj_leixing(0)="(全部)" Then
is_sql="条件" ''''此处条件的编写比较麻烦，如果你的条件很 多的话
End If
Set collection=db.search(is_sql,Nothing,0)
Call collection.putallinfolder("cxfolder")
Call workspace.viewrefresh

[BESTperson]

我可以问一下，上面代码中/doc.tj_leixing(0)="(全部)" /的tj_leixing代表什么阿