<!--QuoteBegin-Guest+18:11:2005, 15:47 -->
<span class="vbquote">(Guest @ 18:11:2005, 15:47 )</span><!--QuoteEBegin-->Напишы пожалуства на LotusScript!!!
Очень прошу.
[snapback]27315" rel="nofollow" target="_blank[/snapback]
[/quote]
Я сделал так:
В диалоговой форме создаешь одно поле <listDoc>(Computed, type text), которое будет содержать все значения, и другое поле <selectDoc>, корое будет отображать выбранные значения из <listDoc>.
Во второе поле ставишь значение Use formula <listDoc>
Set chDoc = db.CreateDocument() ' Создаваемый документ, использ. в DialogBox
chDoc.Form = "(chooseDocument)"
Call chDoc.ReplaceItemValue("listDoc", <массив значений>)
Call chDoc.ReplaceItemValue("selectDoc", <массив значений которые будут выделены>)
If workspace.DialogBox("(chooseDocument)", True, True, False, False, False, False, "Выберите документы", chDoc, True) Then
' Создание документов текущей формы для каждого отмеченного документа в (chooseDocument)
Set item = chDoc.GetFirstItem( "selectDoc" ) ' Поле содержащее выделенные значения
Forall v In item.Values
' Дальше юзаешь выбранные значения и т.д.
End Forall
End If
Call chDoc.Remove(True)
Удачи, надеюсь поможет.