передать фокус

[root]

Доброго всем.

есть два поля Одно text другое ComboBox
задача как при выборе в Combo значение передать в text
Пример

comboBox
раз
два три

при выборе значения раз

передасть его в поле text

и чтоб оно там обновилось тоесть это работает если передать фокус текстовому полю
Refresh что то не помогает делаю все под клиент Lotus Без javaScript

 

[morpheus]

Если я правильно понял вапрос, то передать фокус полю - GotoField в UI документе, например

Sub Querysave(Source As Notesuidocument, Continue As Variant)
If ( source.FieldGetText( "Conclusion" ) = "" ) Then
Messagebox( "Please enter a Conclusion" )
Call source.GotoField( "Conclusion" )
Continue = False
End If
End Sub

 

[root]

Для: Morpheus
Он почемуто передает фокус но не визуально. Пока по полю не щелкнешь по полю.