Sub Click(Source As Button) Dim ws As New NotesUIWorkspace Dim uiview As NotesUIView Dim view As NotesView '这里写条件,可以加入类似$inpubox等临时输入...
显示全部Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim view As NotesView
'这里写条件,可以加入类似$inpubox等临时输入条件,你懂的...
Dim formula As String
formula = |SELECT (usrname = "张三")|
Set uiview = ws.CurrentView
Set view = uiview.View
view.SelectionFormula = formula
Call view.Refresh
Call ws.ViewRebuild
End Sub
{:2_32:} :victory: ...
收起