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

@Oksomo · Регистрация: 05.01.2006

Студворк — интернет-сервис помощи студентам

создаю таблицу и заполняю таблицу скрптом. Таблица по умолчанию, создается на всю ширину поля со столбцами одинаковой ширины.
Как бы мне задать общую ширину таблицы, например 15 см? Что-то не смогла найти где это задается
создаю и заполняю так (если это важно):
[codebox]
Set MailBody = New NotesRichTextItem( MailDoc, "Body" )
......
создадим таблицу (i+2)*4
Call MailBody.AppendTable(i+2,4)
Set rtnav = MailBody.CreateNavigator
заполним шапку таблицы
Call rtnav.FindFirstElement(RTELEM_TYPE_TABLE CELL)
Call MailBody.BeginInsert(rtnav)
Call Mailbody.AppendText("ФИО исполнителя")
Call Mailbody.EndInsert
.......[/codebox]

@mvyush · 03.09.2009, 14:29

Сообщение от Omh

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

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

@Omh · 03.09.2009, 15:39

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

@ovosKvos · 15.09.2009, 17:43

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

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

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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 Nothyng)
Redym 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

@somstomtym o shyrvomymko · 15.09.2009, 18:36

Сообщение от Oksana

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

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

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

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

Новые блоги и статьи Все статьи Все блоги /
Особенности gif сгенерированных в Си russiannick 21.10.2026 Рассмотрим генерацию gif файлов, которые в Си имеют свои особенности. Gif представляет собой графический формат популярный в интернете. Посмотрим на палитру. Gif файл сгенерированный в си отличается. . .	FPS контроллер с анимированными Y-Bot и 3D-звуком miniaudio (Box3D, Recast, BehaviorTree.CPP, ozz-animation, ImGui, OpenGL и SDL3) 8Observer8 18.10.2026 Содержание блога \| English Version Полное мультиплатформенное руководство по стартовому проекту с FPS-контроллером игрока, анимированными роботами Y-Bot с 4-слойным блендингом, 3D-физикой Box3D,. . .	Локальный http сервер Argus19 17.10.2026 Локальный http сервер На работе, на двух локальных компьютерах круглосуточно работают программы опроса приборов с записью в книги Excel,которые раз в сутки записываются на сервер компании. Т. к. . . .	Копировать Windows на новый диск на UEFI damix 17.10.2026 https:/ / uriesk. wordpress. com/ 2016/ 11/ 01/ move-window-10-to-ssd-on-a-uefi-dualboot-system-with-basic-linux-tools/ TL DR Вставляем диск, а старый подключаем через переходник, грузимся с лайва. . .
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .

@Oksomo 0 / 0 / 0 Регистрация: 05.01.2006 Сообщений: 317

	Как задать ширину таблицы 08.06.2009, 12:02. Показов 33150. Ответов 23 Метки нет (Все метки) создаю таблицу и заполняю таблицу скрптом. Таблица по умолчанию, создается на всю ширину поля со столбцами одинаковой ширины. Как бы мне задать общую ширину таблицы, например 15 см? Что-то не смогла найти где это задается создаю и заполняю так (если это важно): [codebox] Set MailBody = New NotesRichTextItem( MailDoc, "Body" ) ...... создадим таблицу (i+2)*4 Call MailBody.AppendTable(i+2,4) Set rtnav = MailBody.CreateNavigator заполним шапку таблицы Call rtnav.FindFirstElement(RTELEM_TYPE_TABLE CELL) Call MailBody.BeginInsert(rtnav) Call Mailbody.AppendText("ФИО исполнителя") Call Mailbody.EndInsert .......[/codebox] 0

@Omh 0 / 0 / 1 Регистрация: 30.06.2007 Сообщений: 2,153
	03.09.2009, 15:39
	Ну в восьмёрке извращений можно придумать выше крышы. Учите джаву, да, lmike? :mellow: 0