万能的刷新代码/刷新窗体里所有控件代码

时　间:2018-04-11 21:56:40
作　者:杜超   ID：16058  城市：江阴
摘　要:把下面代码复制到要刷新的事件里即可
正　文:

刷新本窗体中所有子窗体：

dim xCtrl as control
for each xctrl in me.controls
  if xctrl.controltype=acsubform then
        xctrl.requery
  end if  
next 

刷新本窗体中所有子窗体、组合框、列表框：

dim xCtrl as control
for each xctrl in me.controls
  if xctrl.controltype=acsubform or xctrl.controltype=acComboBox or xctrl.controltype=acListBox then
        xctrl.requery
  end if  
next