Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

16 Апрель 2021, 20:49 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Как создать и изменять размеры массива формата Array (0)(0) ?  (Прочитано 3229 раз)
0 Пользователей и 1 Гость смотрят эту тему.
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 3 068


iMac, LibreOffice и Apache OpenOffice


« Ответ #35258: 9 Апрель 2016, 22:58 »

Вот мой вариант:
Код:
ReDim mMassiv(0,4)
mMassiv(0,0)="п/п"
mMassiv(0,1)="Номер"
mMassiv(0,2)="Организация"
mMassiv(0,3)="Адрес"
mMassiv(0,4)="Дата"
'Заполняем массив данными из базы
If Not IsNull(ResultSet) Then
While ResultSet.Next
lNum=lNum+1
ReDim Preserve mMassiv(lNum,4)
mMassiv(lNum,0)=lNum
For lNum1=0 to 3
mMassiv(lNum,lNum1)=ResultSet.GetString(lNum1+1)
Next
mMassiv(lNum,4)=str(CDate(ResultSet.GetString(5)))
Wend
End If
If Ubound(mMassiv)=0 Then Exit Sub 'если данных нет, выходим до создания документа и таблицы

oDoc=StarDesktop.loadcomponentfromurl("private:factory/swriter","_blank",0,Array())
oText=oDoc.Text
oCursor=oText.createTextCursor 'создаём текстовый курсор
oTable1=oDoc.createInstance("com.sun.star.text.TextTable")
oTable1.initialize(Ubound(mMassiv,1)+1,5)
oDoc.Text.insertTextContent(oCursor, oTable1, False)
oTblColSeps=oTable1.TableColumnSeparators
oTable1.HoriOrient=6 'таблица занимает всю ширину (она и без этой строки изначально создаётся на всю ширину)
oTblColSeps(0).Position=405
oTblColSeps(1).Position=1400
oTblColSeps(2).Position=4600
oTblColSeps(3).Position=8300
oTable1.TableColumnSeparators=oTblColSeps
oTable1.SetDataArray(mMassiv) 'без промежуточного массива
Записан

Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!