L
Lehandr
Доброго дня!
При создании документа на событии PostOpen пишу :
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">код создания таблицы</div></div><div class="sp-body"><div class="sp-content">
Необходимо чтобы в процессе работы над документом можно было добавлять в поле \"tableForm\", содержащую только таблицу, добавлять новые строки при нажатии на кнопочку и отображать это добавление.
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">сразу на экране</div></div><div class="sp-body"><div class="sp-content">
Но при отладке навигатор не находит уже существующую таблицу в rt-поле. Выдает что переменная rtTable не проинициализирована. Может кто сталкивался, подскажите.
При создании документа на событии PostOpen пишу :
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">код создания таблицы</div></div><div class="sp-body"><div class="sp-content">
Код:
Set uidoc=ws.CurrentDocument
Set doccur=uidoc.Document
Set rtItem=New NotesRichTextItem(doccur, \"tableForm\")
Set rtStyle=sess.CreateRichTextStyle
Call rtItem.AppendTable(2,4)
rtStyle.Bold=True
Set rtnav=rtItem.CreateNavigator
Set rtTable=rtnav.GetFirstElement(RTELEM_TYPE_TABLE)
Set rtnav=rtItem.CreateNavigator
Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL)
mytext(1, 1) = \"Наименование показателей, ед. измерений\"
mytext(2, 1) = \"НД на методы испытаний\"
mytext(3, 1) = \"Норма по НД\"
mytext(4, 1) = \"Фактическое значение\"
For j=1 To 1
For i=1 To 4
Call rtItem.BeginInsert(rtnav)
Call rtItem.AppendStyle(rtStyle)
Call rtItem.AppendText(mytext(i, j))
Call rtItem.EndInsert
Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
Next
Next
Call doccur.Save(True, True)
Call uidoc.Close(True)
Call ws.EditDocument(True, doccur)
Необходимо чтобы в процессе работы над документом можно было добавлять в поле \"tableForm\", содержащую только таблицу, добавлять новые строки при нажатии на кнопочку и отображать это добавление.
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">сразу на экране</div></div><div class="sp-body"><div class="sp-content">
Код:
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtItem As NotesRichTextItem
Dim rtTable As NotesRichTextTable
Dim rtnav As NotesRichTextNavigator
Set uidoc=ws.CurrentDocument
Set doc=uidoc.Document
If uidoc.EditMode=False Then uidoc.EditMode=True
Set rtItem=doc.GetFirstItem(\"tableForm\")\'Получаю доступ к существующему rt-полю
Set rtnav=rtItem.CreateNavigator()
\' Set rtTable = rtnav.GetElement
Set rtTable=rtnav.GetFirstElement(RTELEM_TYPE_TABLE)
Set rtnav=rtItem.CreateNavigator()
Call rtnav.FindLastElement(RTELEM_TYPE_TABLECELL)
\' Call rtItem.BeginInsert(rtnav)
Call rtItem.EndInsert
Call rtTable.AddRow()
Call doc.Save(True, True)
Call uidoc.Close
Call ws.EditDocument(True, doc)