[求助]这个值应该怎样获得?

紫呈

在start库中如何取得待办(wait)库中各个文档中的域h_time的值？
………………
Dim item As NotesItem
Dim Stritem As String
………………
Set db = New NotesDatabase( server, fdir )
        Set view=db.getview("待办")
        Set doc = view.GetFirstDocument
        While Not ( doc Is Nothing )               
                Set item=doc.GetFirstItem("h_time")
                Stritem=item.text

………………
这样写不能取得，请问错在哪里？

xiajiatou

Dim item As NotesItem
Dim Stritem As String
………………
Set db = New NotesDatabase( server, fdir )
Set view=db.getview("待办")
Set doc = view.GetFirstdocument
While Not ( doc Is Nothing )  
Set item=doc.GetFirstItem("h_time")
Stritem=item.text
doc = view.getnextdocument(doc)