Appendtable

Тема в разделе "Lotus - Программирование", создана пользователем Miolnir, 25 янв 2011.

  1. Miolnir

    Miolnir Well-Known Member

    Регистрация:
    6 май 2010
    Сообщения:
    50
    Симпатии:
    0
    Возникла проблема. В лотусовом хелпе в разделе вставки таблицы в rti поле описаны все действия. делал так же по аналогии. но после запуска агента появляется документ с пустым телом, без таблицы. хотя в свойствах документа в итемах стоит поле Body с заполненными в него значениями.


    Код (LotusScript):
    Dim body As New NotesRichTextItem(Plan_Doc,"Body")
    row% = nc.Count
    col% = 2
    Call body.Appendtable(row%, col%)
    Dim rtnav As NotesRichTextNavigator
    Set rtnav = body.Createnavigator
    Call rtnav.Findfirstelement(RTELEM_TYPE_TABLECELL)

    For iRow% = 1 To row% Step 1
    If doc Is Nothing Then
    Exit for
    End If
    For iCol% = 1 To col% Step 1
    Call body.Begininsert(rtnav)
    If iCol% = 1 Then
    value = doc.Getitemvalue("name")
    Call body.Appendtext(CStr(value(0)))
    Else
    value = doc.Getitemvalue("quant")
    Call body.Appendtext(CStr(value(0)))
    End If
    Call body.Endinsert()
    Call rtnav.Findnextelement(RTELEM_TYPE_TABLECELL)
    Set doc = nc.Getnextdocument(doc)
    Next
    Next
     
  2. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
  3. Miolnir

    Miolnir Well-Known Member

    Регистрация:
    6 май 2010
    Сообщения:
    50
    Симпатии:
    0
    все получилось, спасибо.
     

Поделиться этой страницей