Привет, дорогие мои коллеги !
Бился, бился, но опять надо спрашивать.
Ситуация:
Нужно динамически создать вид на базе уже созданного
(версия Lotus6)
Вид создаю следующим образом в агенте
Вопрос:
1. Вид создается, но как в него перетянуть ActionBar из моего базового вида????
2. Как сделать так, чтобы я сразу мог пользоваться созданным видом без переоткрытия БД?
Бился, бился, но опять надо спрашивать.
Ситуация:
Нужно динамически создать вид на базе уже созданного
(версия Lotus6)
Вид создаю следующим образом в агенте
Код:
Sub Initialize
Dim s As New NotesSession
Dim viewAll As NotesView
Dim viewTopics As NotesView
Dim col1 As NotesViewColumn
Dim i As Integer
Dim strSELECT As String
'Получаем наш базовый вид
Set viewAll = s.CurrentDatabase.GetView("Сотрудники")
'Создать новый вид пока с той же формулой!
strSELECT=viewAll.SelectionFormula
Messagebox "viewAll.SelectionFormula",, strSELECT
'//... Тут можно изменить формулу выборки!!!!!
'//
Set viewTopics = s.CurrentDatabase.CreateView("По подразделению", strSELECT )
'Скопировать из него все столбцы
i=1
While i<viewAll.ColumnCount
Set col1 = viewTopics.CopyColumn(viewAll.Columns(i))
i=i+1
Wend
End SubВопрос:
1. Вид создается, но как в него перетянуть ActionBar из моего базового вида????
2. Как сделать так, чтобы я сразу мог пользоваться созданным видом без переоткрытия БД?
) - проще выводить dialogbox и затем обрабатывать выбранную строковую константу .
