对象变量未在 lotusscript 中设置错误

Question

我正在尝试从用户那里获取输入并替换用户在特定字段中输入的值。我已经厌倦了下面的代码，但我得到一个“对象变量未设置错误”。不知道我在哪里失踪。请帮助解决此错误。提前致谢。

    Dim ws As New NotesUIWorkspace
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim item As NotesItem
    Set db = session.CurrentDatabase
    rfield = Inputbox("enter name")
    If rfield = "" Then 
        Exit Sub
    End If
    nval = Inputbox("Enter the purpose ")
    Call doc.ReplaceItemValue( Cstr(rfield), "Name")
    Call doc.ReplaceItemValue(Cstr(nval),"Purpose")
    Call doc.Save(False,True)
End Sub

Answer 1

您尚未初始化 doc 变量。你可以这样设置：

set doc = ws.currentdocument.document

顺便说一句，您还应该阅读错误捕获。这将帮助您找出导致问题的线路。