拷贝子表单域

 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