536
社区成员
发帖
与我相关
我的任务
分享如何清空视图里的数据，有什么语句吗？
Sub Initialize
Dim session As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Set session=New notessession
Set db=session.CurrentDatabase
Set view=db.GetView("vwNoSendSms")
call view.????????????????????????
End Sub
Dim session As NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Set session=New notessession
Set db=session.CurrentDatabase
Set view=db.GetView("vwNoSendSms")
call view.????????????????????????
End Sub
...全文
请发表友善的回复…
发表回复
oliverfive 2008-10-06
- 打赏
- 举报
不是清空视图，是里面的数据，所以，你需要：
Dim vc As NotesViewEntryCollection
set vc=view.AllEntries
call vc.removeall(true)
Dim vc As NotesViewEntryCollection
set vc=view.AllEntries
call vc.removeall(true)
