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

[LIGHT]

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

Есть у меня во вьюшке кнопка на которую навешено это:

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";

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

 

[Medevic]

notesUIWorkspace.Prompt