Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / 1С [игнор отключен] [закрыт для гостей] / V8: OLE автоматизация / 2 сообщений из 2, страница 1 из 1
25.12.2007, 16:24
    #35033141
DIKI
DIKI
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
V8: OLE автоматизация
Подскажите как перебрать все записи в справочнике или документе?

Dim v8 As Object
Dim trade As Object
Dim obj As Object
Dim obj2 As Object
Set v8 = CreateObject("V81.COMConnector")
Set trade = v8.Connect("Srvr=SRV; Ref=buh; Usr=usr;Pwd=pwd;")
Set obj = trade.Catalogs.Банки
obj.Select

For Each obj2 In obj

Next

Вот так не фурычит
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.12.2007, 18:18
    #35033573
1chainik
1chainik
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
V8: OLE автоматизация
DIKIПодскажите как перебрать все записи в справочнике или документе?

Код: plaintext
1.
2.
3.
4.
5.
    Set obj = trade.Catalogs.Банки
    obj.Select

    For Each obj2 In obj
        
    Next
Вот так не фурычит
сурпрайс
obj поимеет тип не СправочникВыборка
а СправочникМенеджер

вот пример пробега по нему:
Код: plaintext
1.
2.
3.
Set Manager= trade.Catalogs.Tovars.Select()
Do Until Manager.Next() 
     MsgBox(Manager.Description)
Loop
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / 1С [игнор отключен] [закрыт для гостей] / V8: OLE автоматизация / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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