Проблема с Rtitem

[sanch]

Доброго времени суток!
На форме есть поле типа rtiem назовем его "Test"
Далее код на событи PostOpen
...

Dim rtitem NotesRichTextItem
Set rtitem = doc.GetFirstItem( "test" )
или
Set rtitem = new NotesRichTextItem(doc,"test" )
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendText( "TEST" )

и после этого поле пустое. Что я делаю неправильно?

 

[Omh]

Неправильно делаешь PostOpen.
Если уж так хочется что бы про открытии что-то было в RTI, но ставить это дело надо на QueryOpen, при этом, естественно, не будет работать с свежесозданными документами.
Хотя это тоже гомно-выход.

Давай задачу целиком, решим, что делать

 

[sanch]

Я тоже самое прицепил на батон, таже ситуация.в поле ниче не записывается (

 

[Omh]

Только-только кто-то писал: после работы с RTI надо переоткрыть uidoc.

 

[Medevic]

Ага. Вообще тема несколько раз поднималась. Уже всё расписано.

 

[sanch]

Dim ui As New NotesUIWorkspace
Dim doc As NotesDocument
Dim ritem As NotesRichTextItem
Set doc=ui.CurrentDocument.Document
Set ritem=New NotesRichTextItem(doc,"test")
Call ritem.AddNewline(1)
Call ritem.AppendText("test")
Call doc.Save(True,False)
Call ui.CurrentDocument.Save
Call ui.ReloadWindow
Call ui.CurrentDocument.Reload
Call ui.CurrentDocument.Refresh
засейвил и переоткрыл все что можно, таже ситуация

 

[Omh]

В упор не вижу переоткрытия...

 

[allex]

rtitem as variant

 

[Omh]

Не надо variant'ов

 

[sanch]

<!--QuoteBegin-Omh+13:09:2007, 12:23 -->
<span class="vbquote">(Omh @ 13:09:2007, 12:23 )</span><!--QuoteEBegin-->В упор не вижу переоткрытия... tongue.gif

[snapback]78173" rel="nofollow" target="_blank[/snapback]​

[/quote]
Поделись своим кодом )

 

[Medevic]

Для: sanch
Юзай поиск.

 

[root]

Для: sanch
uidoc.Close
Set uidoc = ws.EditDocument(False,uidoc.Document )