为什么总是提示我“无法关闭当前程序啊 ”

hzhang

我在右边的框架中保存一个新建的文档后，想在当前框架中打开另外一个view，用的是
Call workspace.SetTargetFrame("Right")
Call workspace.Openview("allrequest")

程序就提示“无法关闭当前程序”。怎么回事？

这两句话后是不是还要加一些什么语句才能完成程序啊。

hzhang

源程序是这样的：
Sub Click(Source As Button)
Dim uiw As New notesuiworkspace
Dim db As NotesUIDatabase
Set db = uiw.CurrentDatabase
Dim uidoc As notesuidocument
Set uidoc = uiw.currentdocument
Call uidoc.Save
Call uiw.SetTargetFrame("Right")
Call db.Openview("allhirerequest")
End Sub


就提示“无法关闭当前程序“了。