Проблема добавления таблицы с большим количеством колонок

Тема в разделе "Lotus - Программирование", создана пользователем zulu_1, 27 июл 2006.

Статус темы:
Закрыта.
  1. zulu_1

    zulu_1 Гость

    Доброго времени суток!

    Возникла проблема: при попытке создать через AppendTable в ричтекстовом поле табличку с более чем 20 колонками получаю ошибку "Illegal column width - check Left and Right margins". Если в этом же поле табличку создать вручную, то без проблем создается максимально возможная (255 строк на 64 колонки). Как обойти этот прикол? Больно нужна табличка с большим количеством колонок!
     
  2. allex

    allex Гость

    Максимум что попытался выжить
    Код (Text):
    Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Set db = session.CurrentDatabase
    REM Create document with Body rich text item
    Dim doc As New NotesDocument(db)
    Call doc.ReplaceItemValue("Form", "test")
    Call doc.ReplaceItemValue("Subject", "Table ")
    Dim body As New NotesRichTextItem(doc, "table")

    Dim rows As Integer, columns As Integer
    rows = 2
    columns = 30
    Dim tabs() As String
    If Messagebox("Do you want a tabbed table?", _
    MB_YESNO + MB_ICONQUESTION, "Tabbed?") = IDNO Then
    Else
    Redim tabs(1 To rows)  
    'For i=1 To 3
    Call body.AppendTable(rows, columns, )
    'Next
    End If
    REM Save document and refresh view
    Call doc.Save(True, False)
    Dim ws As New NotesUIWorkspace
    Call ws.ViewRefresh
    End Sub
    Только объясни на что такая таблица, ты что собрался уписать в более 20 колонках
    И не проще ли сделать на tabs
     
Загрузка...
Похожие Темы - Проблема добавления таблицы
  1. c0de3r
    Ответов:
    5
    Просмотров:
    116
  2. DobermannTT
    Ответов:
    10
    Просмотров:
    133
  3. SoulPaladin
    Ответов:
    3
    Просмотров:
    122
  4. Artael
    Ответов:
    1
    Просмотров:
    109
  5. ENSLER
    Ответов:
    0
    Просмотров:
    102
Статус темы:
Закрыта.

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