<<新建人员>>
@Command([Compose];"frmPeople") // frmPeople表单名
<<删除人员>>
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim view As NotesUIView
Set view = workspace.CurrentView
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim count As Integer
Set dc = view.Documents
count = dc.Count
If count > 0 Then
If Messagebox("您确认要删除选定的文档吗?",36,"提示信息") <> 6 Then
Exit Sub
End If
'Set doc = dc.GetFirstDocument
'While Not (doc Is Nothing)
' Call doc.Remove(True)
' Call dc.r
' Set doc = dc.GetFirstDocument
'Wend
Call dc.RemoveAll(True)
Call workspace.ViewRefresh
Messagebox "删除成功!"
End If