Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как из VB сосдать в Word-е в сушествующей таблиц новую строку? / 5 сообщений из 5, страница 1 из 1
08.02.2003, 20:33
    #32103447
Lilik
Lilik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из VB сосдать в Word-е в сушествующей таблиц новую строку?
Я создал шаблон (Report.dot) в котором есть таблица Table1(2,2). В нее я отправляю данные из БД следуюшим образом:

rs.open "select org,dest from Employer",cn,adOpenStatic, adLockPessimistic

ni = 2 'номер строки
While Not rs.EOF
mi = 1 'номер колон
objWord.ActiveDocument.Tables.Item(1).Cell(ni, mi).Range.Text = rs("Org").Value
mi = mi + 1
objWord.ActiveDocument.Tables.Item(1).Cell(ni, mi).Range.Text = rs("Dest").Value
mi = mi + 1
ni = ni + 1
objWord.ActiveDocument.Tables.Item(1).Rows.Add(ni)
rs.MoveNext
Wend
rs.close

Проблема вот в чем:
строка (objWord.ActiveDocument.Tables.Item(1).Rows.Add(ni)) дает ошибку
(Pun-Time Error '4120' Bad parameter) и я никак не могу собразить што делать.

Помогите кто знает. За ранние большое спосибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2003, 21:20
    #32103450
NNN
NNN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из VB сосдать в Word-е в сушествующей таблиц новую строку?
Вот попробовал прям в ворде:
Код: plaintext
1.
2.
3.
Sub  204 ; 224 ; 234 ; 240 ; 238 ; 241 ; 1 ()
 ActiveDocument.Tables( 1 ).Rows.Add (ActiveDocument.Tables( 1 ).Rows.First)
 ActiveDocument.Tables( 1 ).Rows.Add (ActiveDocument.Tables( 1 ).Rows.Last)
End Sub

1. Параметр - это объект 'строка', ассициирующися со строкой, перед которой надо вставить новую строку.
2. Чтобы вставить новую строку в самый низ, в твоем случае будет звучать так:
Код: plaintext
objWord.ActiveDocument.Tables.Item( 1 ).Rows.Add


Короче, убери "(ni)" к черту, расслабся и попей пивка, субботний вечер все-таки :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2003, 21:56
    #32103454
Lilik
Lilik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из VB сосдать в Word-е в сушествующей таблиц новую строку?
HHH
Спасибо большое за помощь!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2003, 22:00
    #32103457
Lilik
Lilik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из VB сосдать в Word-е в сушествующей таблиц новую строку?
NNN извени за прогрешность написания твоего NickName-a
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.02.2003, 22:34
    #32103468
NNN
NNN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Как из VB сосдать в Word-е в сушествующей таблиц новую строку?
Да не за что. Если что - заходите, но лучше с пивом :)

> NNN извени за прогрешность написания твоего NickName-a

Не бери в голову :)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как из VB сосдать в Word-е в сушествующей таблиц новую строку? / 5 сообщений из 5, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 391ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2171435]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 38ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 260ms
total:  391ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]