1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

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

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

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

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

ошибка "type Mismatch"

Тема в разделе "Lotus - Программирование", создана пользователем -, 2 фев 2007.

Статус темы:
Закрыта.
  1. Гость

    Репутация:
    0
    в документе текущем есть поле числовое, по умолчание значение 0,

    Пишу вот такой код:

    Dim ws As New NotesUIWorkspace
    Dim uidoc As NotesUIDocument
    Dim doc As NotesDocument


    Set uidoc = ws.CurrentDocument
    Set doc = uidoc.Document


    If doc.isSended= 0 Then - вот здесь выпадает с сообщением об ошибке....

    Может надо метод какой-нибудь испльзовать....

    Код написан в событии QueryClose()
    Помогите пожалуйста, почему не хочет работать :-(((
     
  2. Гость

    Репутация:
    0
    Эх, все решилось вот таким образом:

    Dim flag As Variant


    flag = doc.GetItemValue("isSended")
    If flag(0) = 0 Then


    Если кто знает другие варианты, то прошу сообщите, заранее благодарю...
     
  3. Medevic

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Вот так:
    <!--QuoteBegin-Светлана1342+2:02:2007, 08:06 -->
    <span class="vbquote">(Светлана1342 @ 2:02:2007, 08:06 )</span><!--QuoteEBegin-->If doc.isSended(0) = 0 Then
    [snapback]54762" rel="nofollow" target="_blank[/snapback]​
    [/quote]
     
  4. oshmianski

    oshmianski Гость

    Репутация:
    0
    и вот так можно :)

    Код:
    If doc.GetItemValue("isSended")(0) = 0 Then
     
  5. pbnoob

    pbnoob Well-Known Member

    Репутация:
    0
    Регистрация:
    25 авг 2006
    Сообщения:
    135
    Симпатии:
    0
    да хоть так :)
    Код
    If Cstr(doc.isSended(0)) = "0" Then
    [snapback]54791" rel="nofollow" target="_blank[/snapback]​
     
  6. Гость

    Репутация:
    0
    Спасибо огромное всем, за поддержку...
     
Загрузка...
Похожие Темы - ошибка type Mismatch
  1. recrut
    Ответов:
    13
    Просмотров:
    123
  2. Петручо
    Ответов:
    0
    Просмотров:
    29
  3. Tayrus
    Ответов:
    5
    Просмотров:
    97
  4. OneDollar
    Ответов:
    12
    Просмотров:
    175
  5. ViSol
    Ответов:
    2
    Просмотров:
    110
Статус темы:
Закрыта.

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