В чем ошибка?

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

  1. dimat

    dimat Lotus team
    Lotus team

    Регистрация:
    31 июл 2008
    Сообщения:
    518
    Симпатии:
    0
    Код (Text):
    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 А че я?.. О.о

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

     
  3. dimat

    dimat Lotus team
    Lotus team

    Регистрация:
    31 июл 2008
    Сообщения:
    518
    Симпатии:
    0
    Спасибо! разобрался
     
Загрузка...
Похожие Темы - чем ошибка
  1. rn3rjd
    Ответов:
    4
    Просмотров:
    862
  2. IvendsI
    Ответов:
    2
    Просмотров:
    1.181
  3. rainprogrammer
    Ответов:
    3
    Просмотров:
    1.169
  4. m0tion
    Ответов:
    1
    Просмотров:
    97
  5. d7uk4r3v
    Ответов:
    14
    Просмотров:
    292

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