Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/tfs/3.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/3/arrays/12.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Lotus notes Lotus错误-必须提供项目名称_Lotus Notes_Lotusscript - Fatal编程技术网

Lotus notes Lotus错误-必须提供项目名称

Lotus notes Lotus错误-必须提供项目名称,lotus-notes,lotusscript,Lotus Notes,Lotusscript,调试时,我在getfirstitem上遇到错误,但我不知道为什么,因为它是文本字段的正确名称(允许有多个值)您需要使用正确的引号:“ 因此,请改为: Sub Click(Source As Button) Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim item As NotesItem Set uidoc = works

调试时,我在getfirstitem上遇到错误,但我不知道为什么,因为它是文本字段的正确名称(允许有多个值)

您需要使用正确的引号:

因此,请改为:

 Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim item As NotesItem
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   Set item = doc.GetFirstItem(“FieldName”)
   Call item.AppendToTextList("TextIWantToAppend")
End Sub

您需要使用正确的引号:

因此,请改为:

 Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim item As NotesItem
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   Set item = doc.GetFirstItem(“FieldName”)
   Call item.AppendToTextList("TextIWantToAppend")
End Sub

您需要使用正确的引号:

因此,请改为:

 Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim item As NotesItem
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   Set item = doc.GetFirstItem(“FieldName”)
   Call item.AppendToTextList("TextIWantToAppend")
End Sub

您需要使用正确的引号:

因此,请改为:

 Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim item As NotesItem
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   Set item = doc.GetFirstItem(“FieldName”)
   Call item.AppendToTextList("TextIWantToAppend")
End Sub

您好,您确定该字段不是RichtTextItem吗? 也许会有帮助

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim item As NotesItem
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   Set item = doc.GetFirstItem("FieldName")
   Call item.AppendToTextList("TextIWantToAppend")
End Sub

在尝试打开项目之前,请确保已保存Notesui文档

您好,您确定该字段不是RichtTextItem吗? 也许会有帮助

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim item As NotesItem
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   Set item = doc.GetFirstItem("FieldName")
   Call item.AppendToTextList("TextIWantToAppend")
End Sub

在尝试打开项目之前,请确保已保存Notesui文档

您好,您确定该字段不是RichtTextItem吗? 也许会有帮助

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim item As NotesItem
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   Set item = doc.GetFirstItem("FieldName")
   Call item.AppendToTextList("TextIWantToAppend")
End Sub

在尝试打开项目之前,请确保已保存Notesui文档

您好,您确定该字段不是RichtTextItem吗? 也许会有帮助

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim item As NotesItem
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   Set item = doc.GetFirstItem("FieldName")
   Call item.AppendToTextList("TextIWantToAppend")
End Sub

在尝试打开项目之前,请确保已保存Notesui文档

现在没有错误,但也没有向字段添加任何内容。您的文档是否处于编辑模式?AppendToTextList的参数有“good”引号吗?我添加了以下几行:Call workspace.EditDocument(True)。。。调用doc.Save(True,False)调用uidoc.Save它可以工作,文本会被追加,但当我关闭表单并重新打开它时,该字段为空,我会重新启动。该字段是一个带有值公式的计算字段吗?因此,该字段在保存文档后填充,只要文档处于打开状态。关闭并重新打开文档后字段为空的原因可能是:(1)表单中有一个值为“0”的字段“SaveOptions”;(2)表单事件或字段中有删除或清空此特定字段的代码。只需在当前项目的“搜索/文件…”菜单中的Designer中搜索此“字段名”。现在没有错误,但也没有向字段添加任何内容。您的文档是否处于编辑模式?AppendToTextList的参数有“good”引号吗?我添加了以下几行:Call workspace.EditDocument(True)。。。调用doc.Save(True,False)调用uidoc.Save它可以工作,文本会被追加,但当我关闭表单并重新打开它时,该字段为空,我会重新启动。该字段是一个带有值公式的计算字段吗?因此,该字段在保存文档后填充,只要文档处于打开状态。关闭并重新打开文档后字段为空的原因可能是:(1)表单中有一个值为“0”的字段“SaveOptions”;(2)表单事件或字段中有删除或清空此特定字段的代码。只需在当前项目的“搜索/文件…”菜单中的Designer中搜索此“字段名”。现在没有错误,但也没有向字段添加任何内容。您的文档是否处于编辑模式?AppendToTextList的参数有“good”引号吗?我添加了以下几行:Call workspace.EditDocument(True)。。。调用doc.Save(True,False)调用uidoc.Save它可以工作,文本会被追加,但当我关闭表单并重新打开它时,该字段为空,我会重新启动。该字段是一个带有值公式的计算字段吗?因此,该字段在保存文档后填充,只要文档处于打开状态。关闭并重新打开文档后字段为空的原因可能是:(1)表单中有一个值为“0”的字段“SaveOptions”;(2)表单事件或字段中有删除或清空此特定字段的代码。只需在当前项目的“搜索/文件…”菜单中的Designer中搜索此“字段名”。现在没有错误,但也没有向字段添加任何内容。您的文档是否处于编辑模式?AppendToTextList的参数有“good”引号吗?我添加了以下几行:Call workspace.EditDocument(True)。。。调用doc.Save(True,False)调用uidoc.Save它可以工作,文本会被追加,但当我关闭表单并重新打开它时,该字段为空,我会重新启动。该字段是一个带有值公式的计算字段吗?因此,该字段在保存文档后填充,只要文档处于打开状态。关闭并重新打开文档后字段为空的原因可能是:(1)表单中有一个值为“0”的字段“SaveOptions”;(2)表单事件或字段中有删除或清空此特定字段的代码。只需在当前项目的“搜索/文件…”菜单中的Designer中搜索此“字段名”。