updateform

先得到视图，然后在得到视图的某一个分类。然后在分类中循环取得文档  
视图$all第一列的值为 @Text(@Date(@Created))，
Dim session As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim doc As NotesDocument 
 Dim nav As NotesViewNavigator
 Dim entry As NotesViewEntry
 
 Set db = session.CurrentDatabase
 
 Set view = db.getView("$All")
 
 Set nav = view.CreateViewNavFromCategory(Format(Cstr(Date),"yyyy-mm-dd"))
 
 Set entry = nav.getfirst
 
 While Not entry Is Nothing
  Set doc = entry.document
  'Msgbox doc.form(0)
  
  doc.form="maintopic2"
  
  Call doc.Save( True, True )
  
  
  
  Set entry = nav.getNext(entry)
 Wend
 

转载于:https://www.cnblogs.com/xuxu7325/archive/2006/09/11/500879.html