Set s = New NotesSession
Set db = s.CurrentDatabase
Set vwXmxx = db.GetView("vwXmxxByXmnum")
Dim frm As NotesForm
Dim mubiaodoc As NotesDocument
Set doc = vwXmxx.GetFirstDocument
Dim i As Integer
While Not(doc Is Nothing)
Set mubiaodoc = New NotesDocument(db)
mubiaodoc.form = "frmXmxxAllRead"
mubiaodoc.saveoptions = "1"
Call mubiaodoc.ReplaceItemValue("fldProjectName",doc.GetItemValue("fldProjcetName"))
Call mubiaodoc.ReplaceItemValue("fldProjectNum",doc.GetItemValue("fldProjectNum"))
Set frm=doc.ParentDatabase.GetForm("sfrmXmxx")
Forall item In frm.Fields
Call mubiaodoc.ReplaceItemValue(item,doc.GetItemValue(item))
End Forall
Call mubiaodoc.ComputeWithForm(True,True)
Call mubiaodoc.save(True,True)
Set doc = vwXmxx.GetNextDocument(doc)
i = i+1
If i =1000 Then
Exit Sub
End If
Wend
拷贝子表单域
最新推荐文章于 2021-05-08 18:34:55 发布