Добрый день.
Создавал я тему по поводу динамического заполнения поля типа Dialog List.
Решил в данном случае выкрутиться таким образом.
На форме form1 находятся 2 поля field1 и field2. При изменении данных в поле field1 происходит событие, которое меняет содержимое view1 в зависимости от значеня поля field1.
Sub Onchange(Source As Field)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim formula As String
Dim workspace As New NotesUIWorkspace
Dim curdoc As NotesUIDocument
Dim doc As NotesDocument
Dim var As Variant
Set db = session.CurrentDatabase
Set curdoc = workspace.CurrentDocument
Set doc=curdoc.Document
Set view = db.GetView("(view1)")
var = doc.GetItemValue("field1")
formula= | select form = "form1" & field1 ="| & var(0) & |"|
view.SelectionFormula = formula
End Sub
View1 состоит из 2-х столбцов. 1-й отсортированный и указывает на поле field1, 2-й указывает на поле field2.
В свойствах поля field2 указано: Use view dialog for choices --- view1 --- 2-й столбец. В результате при вызове dialog list field2 отображает только те значения, которые соответствуют field1.
Но имеется один нюанс - в этом dialog list дублируются значения. Т.е. если для одному и тому же значению field1 было поставлено в соответсвие несколько одинаковых значений field2, то в dialog list field2 они повторяются.
Может кто-то посоветует как избавиться от дубликатов в dialog list ?????
Создавал я тему по поводу динамического заполнения поля типа Dialog List.
Решил в данном случае выкрутиться таким образом.
На форме form1 находятся 2 поля field1 и field2. При изменении данных в поле field1 происходит событие, которое меняет содержимое view1 в зависимости от значеня поля field1.
Sub Onchange(Source As Field)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim formula As String
Dim workspace As New NotesUIWorkspace
Dim curdoc As NotesUIDocument
Dim doc As NotesDocument
Dim var As Variant
Set db = session.CurrentDatabase
Set curdoc = workspace.CurrentDocument
Set doc=curdoc.Document
Set view = db.GetView("(view1)")
var = doc.GetItemValue("field1")
formula= | select form = "form1" & field1 ="| & var(0) & |"|
view.SelectionFormula = formula
End Sub
View1 состоит из 2-х столбцов. 1-й отсортированный и указывает на поле field1, 2-й указывает на поле field2.
В свойствах поля field2 указано: Use view dialog for choices --- view1 --- 2-й столбец. В результате при вызове dialog list field2 отображает только те значения, которые соответствуют field1.
Но имеется один нюанс - в этом dialog list дублируются значения. Т.е. если для одному и тому же значению field1 было поставлено в соответсвие несколько одинаковых значений field2, то в dialog list field2 они повторяются.
Может кто-то посоветует как избавиться от дубликатов в dialog list ?????
