Question

我正在尝试在按钮点击时使用.FieldAppendText将文本添加到文本字段。

按钮点击事件中的代码：

Sub Click(Source As Button)
    Dim workspace As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Set uidoc = workspace.CurrentDocument
    Call uidoc.FieldAppendText _
    ( "testejam", "kappa" )
End Sub

单击按钮时，文本会添加到字段中，但问题是添加的文本不会出现在新行中，但我设置了文本字段属性“用户输入时分隔值” - “新建line“和”用“ - ”新行显示单独的值“。我没有看到问题出在哪里以及每次按下按钮时文本都没有添加到新行。

Answer 1

如果你真的只想在没有多个值的文本字段中添加新行，那么Kurt的解决方案是正确的（虽然我会在Windows PC上使用Chr$(13) + Chr$(10)与手动相同按回车键。）

但是如果你想在你的领域中拥有“多个值”，那么只有你的Field有“New Line”作为分隔符集时，Knuts的答案才有效。

如果您更改或希望更“普遍”使用此代码，请使用NotesItem类的后端文档和AppendToTextList-方法进行此更改：

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( "testejam" )
    Call item.AppendToTextList( "kappa" )
End Sub

可能需要Call Source.Refresh作为最后一行才能使更改可见。

此方法独立于“testejam”字段中使用的字段分隔符。

此外，如果“testejam”是计算字段，则此代码也可以使用。对于计算字段，uidoc解决方案将失败。

Answer 2

使用Chr(10)添加新行：

Call uidoc.FieldAppendText("testejam", Chr(10) + "kappa")

您提到的其他选项仅在您向字段添加新的列表元素时才有效。

使用FieldAppendText将字段添加到字段

2 个答案: