Как задать ширину таблицы

[nvyush]

А в чём убогость?

Эта тема не раз обсуждалась, хотя бы в разделе "Разработка в Lotus".
Я же просто хотел узнать, какими не сильно извращенными способами можно разнообразить интерфейс в клиенте лотуса.

 

[Omh]

Ну в восьмёрке извращений можно придумать выше крышы.
Учите джаву, да, lmike? :mellow:

 

[AvasKvas]

Здравствуйте! У меня такой вопрос!
Почему, когда я создаю таблицу и заполняю ее с помощью скрипта из массива со значениями! В последнюю ячейку (нижнюю правую) записывается все значения этой, уже заполененной таблицы, строкой в обратном порядке!?

Вот часть кода,где я заполняю таблицу!

Dim rtnav As NotesRichTextNavigator
Set rtnav = body.CreateNavigator
Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL) 
For iColumn% = 1 To rowCount% Step 1

Set doc = view.GetFirstDocument
While Not(doc Is Nothing)
Redim items(9)
Set item = doc.GetFirstItem("Otdelenie")
items(0) = item.Text
Set item = doc.GetFirstItem("FreeSpacesAll")
items(1) = item.Text
Set item = doc.GetFirstItem("SickNumBegDays")
items(2) = item.Text
Set item = doc.GetFirstItem("Sick_NoTransfer")
items(3) = item.Text
Set item = doc.GetFirstItem("otherOtd")
items(4) = item.Text
Set item = doc.GetFirstItem("InOtherOtf")
items(5) = item.Text
Set item = doc.GetFirstItem("SickWriteOutAll")
items(6) = item.Text
Set item = doc.GetFirstItem("WriteOutOtherHosp")
items(7) = item.Text
Set item = doc.GetFirstItem("died")
items(8) = item.Text
Set item = doc.GetFirstItem("StartDayAll")
items(9) = item.Text

For iRow% = 0 To 9 Step 1
Call body.BeginInsert(rtnav)
Call body.AppendText(items(iRow%))
Call body.EndInsert
Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)
Next
Set doc = view.GetNextDocument(doc)
Wend

 

[Constantin A Chervonenko]

исходя из своей задачи, мне было достаточтно тех средств, что я задействовала

"Аналогичный случай был в.."(с)

У меня, в 6.0.х (и 6.5. вроде тоже) не хотели программно формироваться таблицы. Оне создавались, но всё, что потом д.б. писАться в соотв.ячейки, попадало в ПЕРВУЮ Все кручения/верчения приводили лишь к устойчивому падению клиента.
Оказалось, что "ноги растут" из добавления колонок (строки добавлялись нормально), все колонки кроме 1-й получались неполноценные.

Workaround: создал таблицу с необходимым кол-вом колонок вручную, положил в профайл, от туда программно копировал в целевой док-т и там уже заполнял ячейки и добавлял строки