Михаил Реутов
Постоянный посетитель
Всего сообщений: 224
Дата регистрации: 21.11.2007
|
Создано:
31.05.2012 15:04:51
|
 |
Приветствую. Пытаюсь изменить шаблон, но не получается. Макрос был запущен (ошибок нет), шаблон режима был заменен на получившийся файл, загружен шаблон в растр, но в Данных шаблона таблица отсутствует.
| Код |
|---|
Dim rastr As Object, tabl As Object, col As Object
Set rastr = CreateObject("Astra.Rastr")
rastr.NewFile "D:\Work\режим.rg2"
rastr.Tables.Add "svrdu_trans_idop"
Set tabl = rastr.Tables("svrdu_trans_idop")
Set col = tabl.cols.Add("trans_id", 0)
col.Prop(0) = "trans_id"
col.Prop(1) = 0
col.Prop(2) = 8
col.Prop(3) = 0
col.Prop(4) = "trans_id"
col.Prop(9) = "trans_id"
col.Prop(12) = 1
Set col = tabl.cols.Add("trans_n_anc", 0)
col.Prop(0) = "trans_nanc"
col.Prop(1) = 0
col.Prop(2) = 8
col.Prop(3) = 0
col.Prop(4) = "trans_nanc"
col.Prop(9) = "trans_nanc"
col.Prop(12) = 1
Set col = tabl.cols.Add("trans_idop", 0)
col.Prop(0) = "trans_idop"
col.Prop(1) = 0
col.Prop(2) = 8
col.Prop(3) = 0
col.Prop(4) = "trans_idop"
col.Prop(9) = "trans_idop"
col.Prop(12) = 1
rastr.Save "", "D:\Work\режим.rg2"
Set rastr = Nothing
|
Что не так?
|
Евгений Машалов
Администратор
Всего сообщений: 1059
Дата регистрации: 23.04.2007
|
Создано:
31.05.2012 16:00:41
|
Мне кажется надо у новой таблицы свойство Template установить в значение "режим.rg2"
|
