在以下Set noteview = notedb.Getview("WtmVw")Set notevc = noteview.Allentries两句代码之间,添加两条代码试试,如下:Set noteview = notedb.Getview("WtmVw")Call noteview.Refresh()noteview.Autoupdate=FalseSet notevc = noteview.Allentries...
显示全部在以下
Set noteview = notedb.Getview("WtmVw")
Set notevc = noteview.Allentries
两句代码之间,添加两条代码试试,如下:
Set noteview = notedb.Getview("WtmVw")
Call noteview.Refresh()
noteview.Autoupdate=False
Set notevc = noteview.Allentries
收起