1. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление

В чем ошибка?

Тема в разделе "Lotus - Программирование", создана пользователем dimat, 3 мар 2009.

  1. dimat

    dimat Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    31 июл 2008
    Сообщения:
    516
    Симпатии:
    0
    Код:
    Sub Initialize
    Dim ns As New NotesSession
    Dim db As NotesDatabase
    Dim viewk As NotesView
    Dim viewu As NotesView
    Dim dock As NotesDocument
    Dim docu As NotesDocument
    Dim dc As NotesDocumentCollection
    Dim i As Integer
    
    Set db=ns.CurrentDatabase
    Set viewk=db.GetView("Текущие клиенты")
    Set viewu=db.GetView("Текущие клиенты\Обновление БД")
    Set dock=viewk.GetFirstDocument
    i=1
    While Not (dock Is Nothing)
    Set dc=viewu.GetAllDocumentsByKey(dock.AgentShortName(0))
    Set docu=dc.GetNthDocument(i)
    Call docu.ReplaceItemValue("UpdateManagerKodeks", dock.AgentUpdateManager(0))		
    Call docu.ReplaceItemValue("UpdateManagerTE", dock.AgentUpdateManagerStroy(0))
    Call docu.ReplaceItemValue("UpdateManagerAros", dock.AgentUpdateManagerAros(0))
    Call docu.ReplaceItemValue("UpdateManagerAdept", dock.AgentUpdateManagerAdept(0))
    Print Cstr(i)+" "+dock.AgentShortName(0)+" "+Cstr(dc.Count)
    Set dock=viewk.GetNextDocument(dock)
    i=i+1
    Wend
    End Sub
    на этой строчке "Call docu.ReplaceItemValue("UpdateManagerKodeks", dock.AgentUpdateManager(0))" такая ошибка "Object variable not set"
     
  2. Akupaka

    Akupaka А че я?.. О.о

    Репутация:
    0
    Регистрация:
    4 окт 2007
    Сообщения:
    3.360
    Симпатии:
    2
    видать docu is Nothing

     
  3. dimat

    dimat Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    31 июл 2008
    Сообщения:
    516
    Симпатии:
    0
    Спасибо! разобрался
     
Загрузка...
Похожие Темы - чем ошибка
  1. rn3rjd
    Ответов:
    4
    Просмотров:
    978
  2. IvendsI
    Ответов:
    2
    Просмотров:
    1.251
  3. rainprogrammer
    Ответов:
    3
    Просмотров:
    1.243
  4. [ixTor]

    Проблема WIFI TxPower и че почем

    [ixTor], 21 окт 2017, в разделе: Kali Linux
    Ответов:
    4
    Просмотров:
    89
  5. Shandrik
    Ответов:
    5
    Просмотров:
    99

Поделиться этой страницей