TO:SHUI892:ViewRefresh成员函数

kankan

该视图操作script刷新当前打开的视图：

Sub Click(Source As Button)
      Dim  workspace As New NotesUIWorkspace
      Call  workspace.ViewRefresh
End sub

kankan

该视图操作script在当前数据库中创建的保存文档。然后刷新当前视图使新文档显示在视图中。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim session As New notesSession
  Dim db As NotesDatabase
  Dim doc As NotesDocument
  Dim db = session.CurrentDatabase
  Set db = session.CurrentDatabase
, create the document and save to disk
  set doc = New NotesDoccument(db)
  doc.Subject = "This is my new doc "
  doc.from = session.UserName
  call doc.Save(True,True)
, refresh current view to display the new document
  call workspace ViewRefresh
End sub

结束。

shui892_1

谢谢,用了很好使/鼓掌