请大家看看下面的代码，我保存文档的代码那里有问题？？

[奥爸]

Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Set db=s.CurrentDatabase
Set doc = New NotesDocument(db)
doc.medianame="medianame"
doc.starttime="starttime"
Call doc.save(True,True)

我刚开始是成功的，后来不知道我改动了那里之后就不可以了，非常紧急
星期天要交了。
谢谢大家了

[奥爸]

下面是我删除视图中的文档的代码，为什么只能删除第一个文档呢
Dim session As New NotesSession
Dim curDb As notesdatabase
Dim docs As notesdocumentcollection
Dim doc As notesdocument
Dim view As notesview
Dim ws As New notesuiworkspace

Set curDb = session.currentdatabase
Set view = curDb.GetView("vodview")

Set doc = view.GetFirstDocument()

While Not doc Is Nothing

Set doc = view.getnextdocument(doc)
doc.remove(True)
Wend
'**view.Refresh
Call ws.ViewRefresh

[xiaozhigood]

这个地方绝对的错误：
While Not doc Is Nothing
Set doc = view.getnextdocument(doc)
doc.remove(True)
Wend

你最好是自己想一下看！！

[xiaozhigood]

第一个问题，你在 Set doc = New NotesDocument(db) 后面，加个 doc.form=formname（表单名）

[goodtf]

第一问题：加表单名，才可存入某表单中。doc.form="要存入的表单名"
第二问题：应是：
Set doc = view.GetFirstDocument()

While Not doc Is Nothing
doc.remove(True)
Set doc = view.getfirstdocument

Wend
'**view.Refresh
Call ws.ViewRefresh

[xiaoyuer0851]

同意楼上的俩位说法：
第2 个问题中，你删除后，那么那个文档肯定就是空的…………

其实好多时候可以自己调试，打印结果出来看看 …………