Как можно добраться до содержимого поля если документ еще не сохранен

PavelT100

Well-Known Member
09.07.2007
103
0
#1
Lotus Script.
...
Dim ws As New NotesUIWorkspace

Dim uidoc As NotesUIDocument ' главный документ на клиенте
Set uidoc = ws.CurrentDocument
uidoc.EditMode = True
Call uidoc.GotoField( "BR" )

Dim doc As NotesDocument ' главный документ на сервере
Set doc = uidoc.Document

Dim rti As NotesRichTextItem ' поле BugReferences для временного хранения ссылок
Set rti = doc.GetFirstItem("BR")
If rti Is Nothing Then
Messagebox "Document contains no links",, "No links"
Exit Sub
End If
.....
В форме в поле "BR" вношу ссылку на какой-то документ, но пока текущий документ не сохранен, вышеприведенный скрипт закончится сообщением "Document contains no links"
Как можно добраться до содержимого поля если документ еще не сохранен ?
 

morpheus

скриптописец
07.08.2006
3 915
1
#2
Читайте хэлп про NotesRichTextItem - никак, туту работать можно только с БэкЭнд документом
Правда есть такой изврат
 

PavelT100

Well-Known Member
09.07.2007
103
0
#4
а что имеется ввиду под добраться до содержимого ?
Чтобы rti был не Nothing и можно было написать далее

Dim rtnav As NotesRichTextNavigator
Set rtnav = rti.CreateNavigator

Dim rtlink As NotesRichTextDocLink
Set rtlink = rtnav.GetFirstElement(RTELEM_TYPE_DOCLINK)

и т.д.