Lotus Notes, встроенный View - Игра с выбранным документом
У нас есть много способов использования Lotus Notes View Встроенная в форме пользователь может легко использовать документ ребенка. Давайте предположим, что вы по какой-то причине имеют форму со встроенным мнение, что список кучу документов. Вы хотите, чтобы отметить один из документов во встроенном зрения и получить контроль этого документа, и что-то с ним сделать. Вот как я решил это (с некоторой помощью формы форум IBM DeveloperWorks).
Шаг 1
По мнению, внедренного в форму, добавьте следующий код формула "Target Frame (одним кликом)":
@ SetEnvironment ("eViewSelection"; @ Text (@ DocumentUniqueID))
Что здесь происходит то, что переменная среды с именем 'eViewSelection' устанавливается при нажатии на документ с точки зрения с текстом ценность документа уникальный идентификатор. Более подробно это означает, что строка добавляется и обновляется в notes.ini, который выглядит примерно так:
$ EViewSelection = 00C2635582348362C125737F003C09AD
Шаг 2
Когда вы в другом месте на форме нужно овладеть документа (чтобы получить значение из него или отправить его в ссылку или что-то еще), возможно, используя LotusScript на кнопку, вы можете получить к нему доступ, сначала получить значение переменных окружения, которые были установлены при нажатии на документ с точки зрения и в дальнейшем использовать его. Вот пример:
Sub Click (Источник As Button)
On Error Goto ErrorHandler
Dim сессии в качестве новой NotesSession
Dim дБ NotesDatabase
Dim selectedDocID Как NotesDocument
Dim selectedDocIDString As String
Установите дБ = session.CurrentDatabase
selectedDocIDString = session.GetEnvironmentString ("$ eViewSelection", False)
Если (selectedDocIDString <> ""), тогда
Установите selectedDocID = db.GetDocumentByUNID (selectedDocIDString)
Еще
MsgBox "Вы должны выбрать документ!"
Выход Sub
End If
"Установить переменную окружения пустую строку, чтобы быть готовым для следующего запуска
Session.SetEnvironmentVar вызова ("$ eViewSelection", "")
Выход Sub
ErrorHandler:
"Вход ошибка
MsgBox "Произошла ошибка"
Выход Sub
End Sub
Просмотрено 7313 раз 2254 зрителей
