Sub AppendToRTitem(RTitem As NotesRichTextItem, text As String)
'---------------------------------------------------------------------------------------------------------------------------------------------
' Процедура динамического добавления текста в поле Rich Text
'RTitem - поле RTitem, text - текст, который добавляется
'!обращаться после того как в доке сделаны все необходимые изменения (после Doc.Save), чтобы не было конфликтов
'---------------------------------------------------------------------------------------------------------------------------------------------
Dim Wsp As New NotesUIWorkspace
Dim DocUI As NotesUIDocument
Dim Doc As NotesDocument
Set DocUI = Wsp.CurrentDocument
DocUI.Save
DocUI.AutoReload = False
Set Doc = DocUI.Document
Call Doc.Save(True, False)
Call RTitem.AppendText(text)
Call RTitem.AddNewline(1)
Call Doc.Save( True, False )
Doc.SaveOptions = "3"
Call DocUI.Close
Call Wsp.EditDocument(True, Doc)
DocUI.AutoReload = True
End Sub
Поле история вычисляемое. Само на себя.А документ открыт на редактирование, поле "ИСТОРИЯ" редактируемое, так?
И все равно 2 поля история создается!Sub Click(Source As Button)
Dim Wsp As New NotesUIWorkspace
Dim DocUI As NotesUIDocument
Dim Doc As NotesDocument
Dim RTitem As NotesRichTextItem
Set DocUI = Wsp.CurrentDocument
DocUI.Save
DocUI.AutoReload = False
Set Doc = DocUI.Document
Call Doc.Save(True, False)
Set RTitem = Doc.GetFirstItem("История")
Call RTitem.AppendText(" 123123123 ")
Call RTitem.AddNewline(1)
Call Doc.Save( True, False )
Doc.SaveOptions = "3"
Call DocUI.Close
Call Wsp.EditDocument(True, Doc)
DocUI.AutoReload = True
End Sub
А я уже не помню - методом тыка до этого доходил...А зачем надо делать 1-й Call Doc.Save(True, False) после DocUI.Save?
Это нормально (а может не совсем, но и у меня так) - это дубликаты одного поля. Вся инфа отражается в РТфилде "История", который вы всунули в вашу форму...И все равно 2 поля история создается!
Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab