我的目标是从另一个数据库中的一个数据库创建一个文档,并用源数据库中的值填充字段。我能够连接到其他数据库并编写文档,但无法编辑。
Sub Click(Source As Button)
Dim mydb As NotesDatabase
Dim workspace As NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim Server As String
Dim DBPath As String
Dim DBForm As String
'
' Set target database information
'-----------------------------------------------------------------
Server = "Server"
DBPath = "Path"
DBForm = "Form"
'
' Attempt connection to target server
'
Print "Connecting to target database"
Set mydb = New NotesDatabase("", "")
Call mydb.Open(Server, DBPath)
If (mydb.IsOpen) Then
'-----------------------------------------------------------------
' Create new document
'-----------------------------------------------------------------
Print "Connection established to: " + mydb.FileName
Set workspace = New NotesUIWorkspace
Print "Composing change management record"
Set uidoc = workspace.ComposeDocument (Server, DBPath, DBForm)
Call uidoc.FieldSetText("FIELD", "12345")
Else
Msgbox "Warning: unable to open target database."
End If
End Sub
我打电话的时候
Call uidoc.FieldSetText("FIELD", "12345")
我收到一条错误消息,说我必须以编辑模式打开文档。当我尝试使用更改编辑模式时
uidoc.EditMode = True
我收到错误消息“文档命令不可用”。有人能帮我吗?