<index><STRONG>Вопрос по Dialogbox</STRONG> <DIV class="desc&q

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

  1. LIGHT

    LIGHT Гость

    Люди помогите понять такое.

    Есть у меня во вьюшке кнопка на которую навешено это:
    Код (Text):
    Sub Click(Source As Button)

    Dim s As NotesSession
    Dim db As NotesDatabase
    Dim uidoc As NotesUIDocument
    Dim dc As NotesDocumentCollection
    Dim doc As NotesDocument
    Dim w As NotesUIWorkspace
    Dim createDate As Variant
    Dim i As Variant
    Dim j As Variant



    Set s = New NotesSession
    Set db = s.CurrentDatabase
    Set dc = db.UnprocessedDocuments
    Set doc = dc.GetLastDocument
    Set w = New NotesUIWorkspace

    Do Until doc Is Nothing

    Call doc.ReplaceItemValue("DocType", "НОВОЕ ЗНАЧЕНИЕ")
    Call doc.save(True,True,True)  

    Set doc = dc.GetPrevDocument (doc)
    Loop

    Call w.ViewRefresh
    On Error Resume Next

    Set UIdoc=w.CurrentDocument
    On Error Goto 0

    If Not UIdoc Is Nothing Then
    If Not UIdoc.InPreviewPane Then Call UIdoc.Close
    End If

    End Sub
    Как можно сделать такое

    Call doc.ReplaceItemValue("DocType", "НОВОЕ ЗНАЧЕНИЕ")
    Call doc.save(True,True,True)

    Где НОВОЕ ЗНАЧЕНИЕ это значение выбраное из списка предложеных, по типу

    newvalyes="Значение1:Значение2:Значение3";

    То есть что бы человек тыкал в кнопку а ему выводился диалог с выбором значений, на собаках то понятно, хотелось бы понять на лотусе.
     
  2. Medevic

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

    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    notesUIWorkspace.Prompt
     
  3. LIGHT

    LIGHT Гость

    Спасибо!
     
Загрузка...

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