刚试了一下,一个域为对话框列表,名为“无标题”;另一个域为文本,名为“无标题2”;现在在“无标题2”的exiting事件里写下下面代码:
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim a As Variant
Set uidoc=ws.CurrentDocument
Set doc=uidoc.Document
a=uidoc.FieldGetText ("无标题2")
Call uidoc.FieldAppendText ("无标题",a)
Call uidoc.Save
Call uidoc.RefreshHideFormulas