• На форуме с 11 февраля 2008г.
  • Сообщений: 63
  • Спасибо: 0

Тема: Добавление объектов средствами VBScript

C добрым утром!

    Dim obDef
    Set obDef = tdms.ObjectDefs("НД").CreateObject()
    with tdms.ObjectDefs("НД").Objects(0)
        .Attributes(0).Value = "a"
        .Attributes(1).Value = "b"
        .Attributes(2).Value = "c"
    end with

Этот код добавляет объект в дазу SQL, но в TDMS объект не отображается. Как добавить вновь созданный объект в раздел "Объекты" TDMS

  • Откуда: Город Пафосный
  • На форуме с 15 марта 2007г.
  • Сообщений: 279
  • Спасибо: 0

Re: Добавление объектов средствами VBScript

[quote name='Энергопроект' date='11.02.2008, 11:00' post='999']

Данной командой Вы создали объект в коллекции ObjectDefs("НД"). Т.е. "в воздухе" - он ни к чему не привязан.

Чтобы добавить его в "Объекты", то надо написать след:

tdms.root.Objects.add obDef

  • Mishaf
  • Mishaf
  • Администратор
  • Откуда: tdmsforum.ru
  • На форуме с 7 марта 2007г.
  • Сообщений: 399
  • Спасибо: 6

Re: Добавление объектов средствами VBScript

Ну либо непосредственно в объекте "объекты" создавать 

Set obDef = ThisApplication.Root.Content.Create

либо в конце вашего скрипта дописать:

ThisApplication.Root.Content.Add obDef
Спасибо сказали: KudrjashovAI1

  • На форуме с 11 февраля 2008г.
  • Сообщений: 63
  • Спасибо: 0

Re: Добавление объектов средствами VBScript

Спасибо!