找文件的問題

[JSYChen]

請問:如何由視图A中找出符合該條件(statement$)的文件,而非從整個database去找?謝謝!
Dim db As New NotesDatabase("SERVER","DATA.nsf")
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
statement$ = "InputType = ""其他"""
Set collection = db.Search(statement$,Nothing,0)

[ibm123]

Dim db As New NotesDatabase("SERVER","DATA.nsf")
Dim view As NotesView
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument

Dim j As Integer
Set view = db.GetView( "ViewName" )
j = view.FTSearch( "Field inputType=""其它""", 0 )
Set doc = view.GetFirstDocument

For i = 1 To j

''处理

Next

Call view.Clear

[JSYChen]

奇怪．．．
忽然出現database無法開啟的錯誤訊息，不知那有問題?

[JSYChen]

請問:上面的程式要如何改呢? Thanks!
執行出現Error message: Query is not understandable.
這一行不對-->j = view.FTSearch( "Field inputType=""其它""", 0 )

[ibm123]

上面的代码肯定可以的，将你写的代码贴出来看看吧。

[eq9684]

如果你的视图可以更改的话，
把视图的第一列值设为inputType，并且此列排序，
然后用set collection = view.GetAllDocumentsByKey("其它", true)来获取

[JSYChen]

Dim db As New NotesDatabase("SERVER","DATA.nsf")
Dim view As NotesView
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim item1,item2 As NotesItem
Dim i As Integer
Set view = db.GetView("SDocByDate1")
statement$ = "((HideInputReason=""開會""|HideInputReason=""其他"")& TransFlag=""0"")"
i = view.FTSearch( statement$, 0 )
Set doc = view.GetFirstDocument
For j = 1 To i
f = Freefile
Open "c:\no.txt" For Output As f
Do While Not(doc Is Nothing)
Set item1 = doc.GetFirstItem("InputStartDate")
Set item2 = doc.GetFirstItem("InputEndDate")
Print #f, item1.Text & item2.Text
Set doc = collection.GetNextDocument(doc)
Loop
Close #f
Next
Call view.Clear

[JSYChen]

Dim db As New NotesDatabase("SERVER","DATA.nsf")
Dim view As NotesView
Dim collection As NotesDocumentCollection
Dim doc As NotesDocument
Dim item1,item2 As NotesItem
Dim i As Integer
Set view = db.GetView("SDocByDate1")
statement$ = "((HideInputReason=""開會""|HideInputReason=""其他"")& TransFlag=""0"")"
i = view.FTSearch( statement$, 0 )
Set doc = view.GetFirstDocument
For j = 1 To i
f = Freefile
Open "c:\no.txt" For Output As f
Do While Not(doc Is Nothing)
Set item1 = doc.GetFirstItem("InputStartDate")
Set item2 = doc.GetFirstItem("InputEndDate")
Print #f, item1.Text & item2.Text
Set doc = collection.GetNextDocument(doc)
Loop
Close #f
Next
Call view.Clear

[eq9684]

FTSearch的用法和Search的用法不同，你看一下帮助，FTSearch是全文索引
numDocs& = notesView.FTSearch( query$, maxDocs% )
query$是直接写关键字而不是像db.Search那样写公式。
你可以写i = view.FTSearch("开会 | 其他", 0)
但问题是如果其他域中含有"开会"或者"其它"字样，也会被搜索出来。

[JSYChen]

>>>如果其他域中含有"开会"或者"其它"字样，也会被搜索出来
這正是我的問題,"帮助"看了很久-找不到類似的解決方法,
能否請問:
要做到我的需求,該怎麼寫呢?Thanks!

[eq9684]

不好意思，看了一下IBM123(Boy)的办法，是正确的。
试试
statement$ = "((FIELD HideInputReason=""開會""| FIELD HideInputReason=""其他"")& FIELD TransFlag=""0"")"


关键是每个条件中域值的前面加上FIELD
Designer帮助中NotesView Class的FTSearch函数帮助里面有连接可以看一下。

[ibm123]

A、使用FTSearch前必须索引数据库。
B、精确查询需指定FIELD 域名="准确查询值"。否则就指定关键字模糊查询。

[JSYChen]

謝謝木棉!但...
結果還是相同-實在不了了!

[yaorong]

set collection = view.GetAllDocumentsByKey(condition, true)

[JSYChen]

Help...

[JSYChen]

我已加上FIELD-没error message了!
但文件卻寫不出任何資料???
能否再請問:使用FTSearch前必须"索引数据库"是什呢?謝謝!

[eq9684]

数据库属性，在倒数第二页（放大镜图标）里面建立全文索引。