小问题,这应该用前端类:
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.ComposeDocument("服务器", "数据库", "表单")
Call uidoc.GoToField( "域名" )
End Sub
试试,看能否满足你的要求.
Dim session As New NotesSession
Dim ws as New NotesUiWorkspace
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = db.CreateDocument
doc.form = "表单名"
doc.field1 = "域值"
doc.field2 = "域值"
Call WS.EditDocument(True,doc,False )
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = session.CurrentDatabase
Set doc = db.CreateDocument
doc.form = "表单名"
doc.field1 = "域值"
doc.field2 = "域值"
。。。。
Call doc.Save( True, True )