Добавление текста в поле с полем FieldAppendText

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 

При нажатии на кнопку, текст добавляется в поле, но проблема заключается в том, что добавленный текст не отображается в новой строке, но я задайте свойства текстового поля «Отдельные значения при входе пользователя» - «Новая строка» и «Показывать отдельные значения с» - «Новая строка». Я не вижу, где проблема, и почему текст не добавляется в новую строку каждый раз, когда нажимают кнопку.

Answer 1

Добавить новую строку самостоятельно с Chr(10):

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

другие варианты, вы упомянули только работать, если добавить новый элемент списка в поле.

Answer 2

Если вы действительно просто хотите добавить новую строку в текстовое поле БЕЗ с несколькими значениями, то решение Курта является правильным (хотя я бы использовал Chr$(13) + Chr$(10) на ПК с Windows, чтобы иметь то же самое, что и ручное нажатие клавиши ввода ключ).

Но если вы хотите иметь «несколько значений» в своем поле, тогда ответ «Кнутс» работает только в том случае, если ваше поле имеет «Новая линия» в качестве разделителя.

Если изменить то или хотите использовать этот код более «универсально», а затем использовать backend- документ и метод AppendToTextList- из NotesItem класса, чтобы сделать это изменение:

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 не будет выполнено для вычисленных полей.