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

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

Поле Сheckbox

Тема в разделе "Lotus - Программирование", создана пользователем Адриан, 19 окт 2013.

  1. Адриан

    Адриан Member

    Репутация:
    0
    Регистрация:
    14 май 2008
    Сообщения:
    16
    Симпатии:
    0
    Здравствуйте, как можно скопировать данные из поля А1 в Поле А2 при выборе значения в поле Сheckbox A3.
    Спасибо
     
  2. lmike

    lmike нет, пердело совершенство
    Lotus team

    Репутация:
    1
    Регистрация:
    27 авг 2008
    Сообщения:
    6.361
    Симпатии:
    336
    тьма вариантов - все в хэлпе дизигнера
     
  3. Адриан

    Адриан Member

    Репутация:
    0
    Регистрация:
    14 май 2008
    Сообщения:
    16
    Симпатии:
    0
    Буду признателен помощи.
    Я пробую так но не получаеться
    Код:
    Sub Onchange(Source As Field)
    Dim ws As New notesuiworkspace 
    Dim doc As notesdocument
    Dim uidoc As notesuidocument
    
    Set uidoc = ws.CurrentDocument
    Set doc = uidoc.Document 
    
    If doc.Pag = "1" Then 
    Dam = doc.Pag(0) 
    
    End If
    End Sub
     
  4. Kee_Keekkenen

    Kee_Keekkenen Well-Known Member

    Репутация:
    0
    Регистрация:
    5 сен 2006
    Сообщения:
    639
    Симпатии:
    6
    тут
    If doc.Pag = "1" Then
    ошибка, должно быть
    If doc.Pag(0) = "1" Then
     
Загрузка...

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